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ABSTRACT 


We will examine progenitors. We start with progenitors of the form m*" : N where 
m*" is a free group and JN is a permutation group of degree n. But, m*” : N is 
a group of infinite order so we will factor by the necessary relations to get finite 
homomorphic images. These groups are constructed through the manual double 
coset enumeration method. We will examine how to construct progenitors for 


wreath products. 
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Introduction 


In group theory we look closely at the construction and symmetry of finite 
simple groups. In order to find these finite homomorphic images, we must start 
with progenitors such as m*”" : N where N is transitive on n letters. Our groups are 
infinite therefore, to obtain finite images we must factor our progenitor by relations. 
Then we wish to obtain an isomorphism between our finite homomorphic image 
and our control group G. We use MAGMA extensively in order to accomplish 
this. In Chapter 1, we list our preliminaries. In Chapter 2, we show how to build 
a progenitor and find its first order relations. In Chapter 3, We build monmomial 
progenitors with its first order relations. In Chapter 4, we inspect constructions 
of several groups and their finite homomorphic images by doing manual double 
coset enumeration for example, A7 over PSL (2,7). In Chapter 5, we examine the 
construction of a maximal subgroup Mo) : 2? over PGL(2,9) : 2 and PGL(2,9). 
In Chapter 6, we obtain the wreath product and find its symmetric presentation 
along with building a progenitor and first order relations as shown in Chapter 2. 
Lastly, in Chapter 7 we find the isomorphism types of several groups. These can 
be either direct product, split, non-split extension, mixed or central extensions. 


For example, we will show the mixed extension of (2° :* $4). 


Chapter 1 


Preliminaries 


1.1 Definitions and Theorems 


Definition 1.1.1. (Permutation) Jf X is a nonempty set, a permutation is 


the bijective mapping a: X + X. [Rot95] 


Definition 1.1.2. (Disjoint) Two permutations a, € Sx are disjoint if every 
x moved by one is fixed by the other. In symbols, if a(a) 4 a, then B(a) =a, and 
if a(b) = b, then B(b) 4b. [Rot95] 


Theorem 1.1.3. Every permutation a € Sy, is either a cycle or a product of 


disjoint cycles. [Rot95]/ 


Definition 1.1.4. (Semigroup) A semigroup (G,*) is a nonempty set G 


equipped with an associative operation *. [Rot95] 


Definition 1.1.5. (Symmetric Group) The symmetric group, denoted S;, is 
the set of all permutations of the nonempty set X = {1,2,...,n}. Sn is a group of 


order n! on n letters. [Rot95] 


Definition 1.1.6. (Group). A group is a semigroup G containing an element e 
such that 
(i)exa=a=arxe forallacG 


(ii) for every a € G, there is an element be G withaxb=e=bxa. [Rot95] 


Definition 1.1.7. (Order) Jf G is a group, then the order of G, dentoted |G, is 


the number of elements in G. [Rot95] 


Definition 1.1.8. (Free Group) /f X is a subset of a group F,, then F is a free 
group with basis X if, for every group G and every function f : X — G, there 


exists a unique homomorphism yp: F > G extending f. [Rot95] 


Definition 1.1.9. (Presentation) Let X be a set and let A be a family of words 
on X. A group G has generators X and relations A if G = F/R, where F is the 
free group with basis X and R is the normal subgroup of F' generated by A. The 


ordered pair (X|A) is called a presentation of G. [Rot95] 


Definition 1.1.10. (Progenitor) A progenitor is a semi-direct product of the 


following form: P= 2*":N = {nw | a € N, and w is a word in the t;}, where 2*" 


denotes a free product of n copies of a cyclic group of order 2 generated by invo- 
lutions t; for i=1,...,n; and N is a transitive permutation group of degree n which 


acts on the free product by permuting the involutory generators. [Curt96/ 


Lemma 1.1.11. (Factoring Lemma) (Known as the Grindstaff Lemma) Factor- 


ing the progenitor m*":N by (t;,t;) for 1<i<j< ngives the group m":N.[Grind15] 


Definition 1.1.12. (Character) Let A(x) = (aj;(x)) be a matrix representation 


of G of degree m. We consider the characteristic polynomial of A(x), namely 


pane A—a12(z) «A= Aim(x) | 
det(M — A(2)) = | A— a(t) A—ag(x) .. A-—A1m(Z) | 
, —Ami(@) A—Am2(x) ... A Gmm(Z) | 


This is a polynomial of degree m in X, with the coefficient of —X"—| is 
p(x) = aii (&) + a22(X) + .. + Omm(Z). 

It is customary to call the right-hand side of this equation the trace of 
A(x), abbreviated to trA(x), so that p(x) = trA(z). 

We regard v(x) as a function on G with values in field K, and we call it 


the character of A(x).[Led77/ 


Theorem 1.1.13. The number of irreducible characters of G is equal to the num- 


ber of conjugacy classes of G./Led77] 


Definition 1.1.14. (Degree of a Character) The sum of squares of the de- 
grees of the distinct irreducible characters of G is equal to |G|. The degree of a 
character x is x(1). Note that a character whose degree is 1 is called a linear 


character. [Led77] 


Definition 1.1.15. (Lifting Process) Let N be a normal subgroup of G and 
suppose that Ag(Nx) is a representation of degree m of the group G/N. Then 
A(x) = Ap(N2) defines a representation of G/N lifted from G/N. If yo( Nx) is a 
character of Ao(Na), then p(x) = yo(N2) is the lifted character of A(x). Also, 
ifue N, then A(u) = Im, y(u) = m = (1). The lifting process preserves irre- 
ducibility. [Led77] 


Definition 1.1.16. (Induced Character) The character of A(x), which is called 
the induced character of ¢, will be dentoted by ¢°. Thus, ¢° = trA(x) = Yv_, 
o(tyrt;—+).[Led77] 


Definition 1.1.17. (Formula for Induced Character) 


n 
yo (x) = he ye =Ulw) a= 128s. et 
* weCaNH 


Definition 1.1.18. (abelian) A pair of elements a and b in a group commutes 


if a*b=b*a. A group is abelian if every pair of its elements commutes. [Rot95] 


Definition 1.1.19. (homomorphism) Let (G,*) and (H,o) be groups. A func- 


tion f:GoH is ahomomorphism if, for all a, b € G, f(a*b) = f(a) o f(b). [Rot95] 


Definition 1.1.20. (isomorphism) An isomorphism is a homomorphism that 
is also a bijection. We say that G is tsomorphic to H, denoted G=H, if there 


exists an isomorphism f:G ~ H. [Rot95] 


Theorem 1.1.21. Let p be a prime. A group G of order p” is cyclic if and only 


if it is an abelian group having a unique subgroup of order p. [Rot95] 


Definition 1.1.22. (normal subgroup) A subgroup K<G is a normal sub- 


group, denoted by KG, if gKg-'=K for every g€G. [Rot95] 


Theorem 1.1.23. (First Isomorphism Theorem) Let f: G—+H be a homo- 
morphism with kernal K. Then K is a normal subgroup of G and G/K=im(f). 
[Rot95] 


Theorem 1.1.24. (Second Isomorphism Theorem) Let N and T be subgroups 
of G with N normal. Then NOT is normal in T and T/(NAT)ZNT/N. [Rot95] 


Theorem 1.1.25. (Third Isomorphism Theorem) Let K<H<G, where both 
K and H are normal subgroups of G. Then H/K is a normal subgroup of G/K and 
(G/K)(H/K)=G/H. [Rot95] 


Theorem 1.1.26. (Correspondence Theorem) Let KG and let :G—>G/K 


be the natural map. Then S++ (S)=S/K is a bi-jection from the family of all 


those subgroups S of G which contain K to the family of all the subgroups of G/K. 
Moreover, if we denote S/K by S*, then: (i) T<S if and only if T* < S*, and 
then [S:T]=[S* :T*]; and (ii) TAS if and only if T* <1 S*, and then S/T = S*/T™*. 
[Rot95] 


Definition 1.1.27. (maximal normal subgroup) A subgroup H<G is a mazi- 
mal normal subgroup of G if there is no normal subgroup N of G with H<N<G. 


[Rot95] 


Definition 1.1.28. (simple) A group GA1 is simple if it has no normal sub- 


groups other than G and itself. [Rot95]/ 


Definition 1.1.29. (direct product) If H and K are groups, then their direct 
product, denoted by Hx K, is the group with elements all ordered pairs (h,k), where 
heH and ke kK, and with the operation (h,k)(h’,k’)=(hh’,kk’). [Rot95] 


Theorem 1.1.30. (Jordan-Holder Theorem) Every two composition series of 
a group G are equivalent. 

Suppose that the finite group G has two composition series 

Cia By > Bi So Be = ANY Biase = Co Ss Ci eae Sea St: 
Then n = m and the lists of composition factors for the two series are identi- 
cal in the sense that if |H| < |G| and ®(H) = {i > 1: By1/B; = H} and 
W(A) = {i >1:C_1/C; = H} then ®(H) = U(A). [Rot95] 


Definition 1.1.31. (semi-direct product) A group G is a semi-direct prod- 
uct of K by Q, denoted by G=KxQ, if KG and K has a complement Q;=Q. One 


also says that G splits over K. [Rot95] 


Definition 1.1.32. (mixed-extension) If G is an extension of an abelian group 


not equal to the center of G, then this is called a mixed extension. [Rot95] 


Definition 1.1.33.(normal subgroup in composition series) A normal sub- 
group N of a group G is called a maximal normal subgroup of G if 

(a) NAG 

(b) whenever N < M <1G then either M = N or M+G. 

By the Correspondence Theorem, if NG and N #G then every normal subgroup 
of G/N corresponds to a normal subgroup of G containing N. So a normal subgroup 


N is maximal if and only if G/N is simple. 


Definition 1.1.34. (Composition series) Given a group G, a composition se- 
ries for G of length n is a sequence of subgroups G=By > By > +> By =l@ such 
that 

(i) Beat By for = Lise tt: 

(ii) By-1/B; is simple for i=1,...,.n. In particular, B; is a maximal normal sub- 
group of G and B,_, is simple. The (isomorphism classes of the) quotient groups 


B;/Bj_1 are called composition factors of G. 


Example 1.1.35. 


S4 has the following composition series of length 4, where K is the Klein group 
{(1), (12)(34), (13) (24), (14)(23)}. 

S4 > Aq > K > {(12)(34)} > {1} 

We know that Aq <1 S4; the composition factor S4/A4 = C2. 

We have seen that K < Ag; and A4/K = C3 

All subgroups of K are normal in K, because K is abelian. 

Both K/{(12)(34)} and {(12)(34)}/{1} are isomorphic to C. 


So the composition factors of S4 are C2 (three times) and C3 (once). 


Example 1.1.36. 


If G is simple then its only composition series is G > {1}, of length 1. 


Example 1.1.37. 

(Z,+) has no composition series. If H < Z then H is cyclic of infinite order. 
If H =< x > then < 2x > is a subgroup of H with {0} 4 < 2a > # H, and 
< 2x > <1 A because H is abelian. So H is not simple. If By > By >... > By is 


a composition series then By_1 is simple, so there can be no composition series. 


Theorem 1.1.38: Every finite group G has a composition series. 


Example 1.1.39. (Composition Series for Qg and Dg) 
Qs: 
All three possible compositions series for Qg are valid and are the following: 


1<< -1><<i>< Qs 
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le<-1 osc 7S Os 

1<<-l><<k >< Qs 

The respective composition factors being Zy, Zo, Zo. 
Dg: 

There are 7 composition series for Dg listed below: 
1 << 3s ><<s,r? >< Ds 

1 << r?23 ><< s,r* >< Ds 

l<<r><< 8,7? >< Dg 

1<< 7? S<<7r >< Ds 

l<<r?><< rs,r? >< Dg 

1l<<rs><< rs,r- >< Dg 

1<< ros ><< rs,r? >< Dg 


Although Dg 4 Qs, they have the same composition factors. 


Definition 1.1.40. (right coset) Jf S is a subgroup of G and if t © G, then a 
right coset of S € G is the subset of G: St = {st:s € S} (a left coset is tS = 


{ts:s€S}). One calls t a representative of St (and also tS). [Rot95] 


Theorem 1.1.41. If S<G, then any two right (or any two left)cosets of S in G 


are either identical or disjoint. [Rot95] 


Theorem 1.1.41. If S<G, then the number right cosets of S in G is equal to the 


number of left cosets of S in G. [Rot95] 
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Definition 1.1.42. (index) If S<G, then the index of S in G, denoted [G:S], is 
the number of right cosets of S in G. [Rot95] 


Definition 1.1.43. (conjugate) If x € G, then a conjugate of x in G is an 


element of the form axa! for some a € G. [Rot95] 


Definition 1.1.44. (double coset) If S and T are subgroups of G, then a double 


coset is a subset of G of the form SgT, where g € G. [Rot95] 


Definition 1.1.45. (G-set) Jf X is a set and G is a group, then X is a G-set if 
there is a function a: Gx X —+ X (called an action), denoted by a: (g, t) + 
gx, such that: 

(i) 1x = x for all x € X; and 

(it) g(hz) = (gh)x for allg, hE Gandae X. [Rot95] 


Definition 1.1.46. (acts) G acts on X, if |X| =n, then n is called the degree 
of the G-set X. [Rot95] 


Definition 1.1.47. (G-orbit) Jf X is a G-set anf x € X, then the G-orbit of x 
is V(x) = {gu : g © G} C X, (V(x) denoted Gx). [Rot95] 


Definition 1.1.48. (stabilizer) If X is a G-set and x € X, then the stabilizer 


of x, denoted by Gy, is the subgroup G, =g9 € G: gr =a2< G. [Rot95] 
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Theorem 1.1.49. If X is a G-set and x € X, then |0(x)| = [G: G,]. [Rot95] 


Corollary 1.1.50. Jf a finite group G acts on a set X, then the number of ele- 


ments in any orbit is a divisor of |G|. [Rot95] 


Corollary 1.1.51. (i) If G is a finite group and x € G, then the number of 
conjugates of  € G is |G: Cg(x)| (Ca, is centralizer). (ii) If G is a finite 
group and H < G, then the number of conjugates of H € G is |G: Ne(H)] (Na, 


is normalizer). [Rot95/ 


Definition 1.1.52. (transitive) A G-set X is transitive if it has only one orbit; 


that is for every x, y € X, there exists ao € G with y = oa. [Rot95] 


Definition 1.1.53. (Double Coset Algorithm) Perform the double coset enu- 
meration of group G over transitive group N, where double cosets take the form 
NwN = {Nun | ne MN} ={Nw" | ne MN}. 

(i) Compute the point-stabilizer N“” and coset stabilizer of each double coset. 

(ii) Compute the number of right cosets by using the formula coe where N\) 
={ne N| Nw” = Nu} is the coset stabilizer of the right coset. 

(iit) For each double coset NwN, compute the orbits of N(). It suffices to deter- 
mine the double coset of Nut; for a single representative of each orbit. Note, N‘) 
> N” is always true. 

(iv) Determine which double coset each coset representative Nwt; belongs to, (re- 


peat the process until closed by coset multiplication ) . 
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Definition 1.1.54. (Wreath Product) Let X and Y be non-empty sets. Let 
HT be a permutation group on X and K on Y. Let Z = X x Y, then the wreath 
product is a semi-direct product of X and Y. We define a permutation group on 
Z such that we let y € H, and define a permutation of y(y) of Z by 


v(y) = (ey (ry), if =y 


(x,y1) Fe (z,y1), YF Y1 
Also, for k € K, define k*(x,y) = (x, (y)k); such that B = X,€Y H(y) is a di- 
rect product of of the group generated by the y’s. Thus, G = B:k*(x,y) is called a 


wreath product of H and K, where H is normal subgroup, denoted by H. K. |Rot95] 
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Chapter 2 


Writing Progenitors 


2.1 Permutation Progenitor of 2*° : (2? : (3x2)) 


First we will write a symmetric presentation for G = 2*° : (2? : (3x2)). 
We begin with a transitive group on 6 letters and examine its composition factors 


to find the isomorphism type of our control group N. 


>N:=TransitiveGroup(6,7) ; 

>N; 

Permutation group N acting on a set of cardinality 6 
Order = 24 = 273 * 3 

(1, 4)(2, 5) 

(1, 3, 5)(2, 4, 6) 


(1, 5)(2, 4) 


> CompositionFactors(N) ; 


| Cyclic(2) 


[- -Cyelse (3) 


| Cyclic(2) 


| Cyclic(2) 


A presentation for N is 2? : (322) 


>S:=Sym(6) ; 

>xx:=S!(1, 4) (2, 5); 
>yy:=S!(1, 3, 5) (2, 4, 6); 
>2z:=S!(1, 5)(2, 4); 
>N:=sub<S|xx,yy,zz>; 

>#N; 

24 

>FPGroup (N) ; 


Finitely presented group on 3 generators 


Relations 
$.1°2 = Id($) 
$.2°3 = Id($) 
$.3°2 = Id($) 


($.2°-1 * $.3)°2 = Id($) 
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($.1 * $.3)72 = Id($) 
($.1 * $.27-1)73 = Id($) 


>NN<a,b,c>:=Group<a,b,cla°2,b°3,c°2, (b~-1*c) “2, (a*c) “2, (a*b*-1) *3>; 
>#NN; 


24 


>f, Gi, k :=CosetAction(NN, sub<NN|Id(NN)>); 
>IsIsomorphic(N, G1); 

true Mapping from: GrpPerm: N to GrpPerm: Gl 
Composition of Mapping from: GrpPerm: N to GrpPC and 
Mapping from: GrpPC to GrpPC and 


Mapping from: GrpPC to GrpPerm: G1 


We see here that the presentation is isomorphic to N which is generated 
by x ~ (1,4)(2,5), y ~ (1,3,5)(2,4,6), and z ~ (1,5)(2,4). Next, we add ¢? to 
the presentation since |t;| = 2, which gives the free product 2*°. Therefore our 


progenitor becomes 
G <2,y,2,t >:= Group < 2,y, z,t\2?,y°, 2”, (y"*#2)?, (wz), (wey*)°, t?, (t, N?) >; 


where t ~ t; and N! is the point stabilizer defined by Nt = {n € N|I" = 
1}, where n are elements of N that fix 1. Now the point stabilizers are < 
(2,3)(5, 6), (2,6)(3,5) >, which we convert to words using a program that uses 


the Schreier System of G. 


> Sch:=SchreierSystem(NN, sub<NN|Id(NN)>) ; 


> ArrayP:=[Id(N): i in [1..#N]]; 

> for i in [2..#N] do 

for> P:=[Id(N): I in [1..#Sch(i]]]; 

for> for j in [1..#Sch[i]] do 

for|for> if Eltseq(Sch[i])[j] eq 1 then P[j]:=xx; end if; 
for|for> if Eltseq(Sch[i])[j] eq -1 then P[j]:=xx*-1; end if; 
for|for> if Eltseq(Sch[i])[j] eq 2 then P[j]:=yy71; end if; 
for|for> if Eltseq(Sch[i])[j] eq -2 then P[j]:=yy*-1; end if; 
for|for> if Eltseq(Sch[i])[j] eq 3 then P[j]:=zz71; end if; 
for|for> if Eltseq(Sch[i])[j] eq -3 then P[j]:=zz*-1; end if; 
for|for> end for; 

for> PP:=Id(N); 

for> for k in [1..#P] do 

for|for> PP:=PP*P[k]; end for; 

for> ArrayP[i] :=PP; 

for> end for; 

> 

> for i in [1..#Sch] do if ArrayP[i] eq N! (2,3) (5,6) 

then print Sch[i]; end if; end for; 


ax cr brea 


>for iin [1..#Sch] do if ArrayP[i] eq N!(2, 6)(3, 5) then Sch[il]; 
end if; end for; 


cx*b 


17 
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So now, we can re-write acba as xyzx. Hence, the progenitor becomes 
Group < x,y, 2,t|x?,y°, 27, (yz), (waz), (way 1)?, 0, (t, cxzeyxn), (t,2%y) >. 
Recall, this progenitor is infinite, therefore, we must factor by first order relations 


in order to see the finite homomorphic images of 2*° : (2? : (3x2)). 


2.1.1 First Order Relations of 2*° : (2? : (3x2)) 


The first order relations we will examine are of the form (t%)’, where 
a is a permutation in N. In order to find first order relations, we examine the 


conjugacy classes of N given in the table below. 


Table 2.1: Conjugacy Classes of N 


Class Number Order Class Representative Length 
1 1 Id(N) 1 
2 2 (2/5) (35:6) 3 
3 2 (1, 5)(2, 4) 6 
4 3 (1, 3, 5)(2, 4, 6) 8 
5 4 (1, 4)(2, 6, 5, 3) 6 


From above, we find the centralizers of each class representative and the 
corresponding orbits on {1, 2,3, 4,5, 6}. 
Class 2 has centralizer 


(2a) 3, Oy os 


with orbits {1,4}, and {2, 3,5, 6}. 
Class 3 has centralizer 


ee 1d) 2.) 


with orbits {1,2,4,5},{3}, and {6}. 
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Class 4 has centralizer 
< (1,3, 5)(2, 4,6) >, 


with orbits {1,3,5}, and {2, 4, 6}. 
Class 5 has centralizer 


< (1, 4)(2, 6, 5,3) >, 


with orbits {1,4}, and {2,3,5,6}. 


With this we are given the first order relations of N which we convert to words. 
(2, 5)(3,6)¢ = (yay ")t 
(2, 5)(3, 6) = (yay™")t*” 
(1; 5)(2;4)6 =(2)t 
(1, 5)(2, 4)t = (z)t¥ 
(L524 = ie" 
(1,3, 5)(2, 4, 6)t = (y)t 
(1, 3, 5)(2, 4, 6)t = (y)é”* 
(1, 4)(2,6,5,3)t = (zyx)t 
(1,4)(2, 655, 3)¢ = Gyae? 


Adding these relations gives us our final representation of G = 2*° : (2? : (3 x 2)), 
Group < 2,y,2,t|x?, y°, 27, (y 12), (ez)?, (2y7")°, 2, 
(t,ezyz), (t, 2y), (yey "4)%, (yay 4*)?, (zt)*, (2t¥)4, (2), (yt)? (yt'ez))9, (zyat)*, 


(zyat™*)' >; 
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The following table gives the finite images of this progenitor 2*° : (2? : 


(3x2)) when these first order relations are added. 


Table 2.2: Some Finite Images of the Progenitor 2*° : (2? : (3 x 2)) 


alb|c/|dje|f]g h i | j | Index of G 
0;/0};0/;0;}0/0) 0 2 5 | 0 20 
0;/0;0;0)/0}0/; 0; 4) 4)0 64 
0;/0}0/0;}0/0)] 0 8 | 4/0 512 
0;/0;0;/;0]0]|0]} 4 |] 6 0 | 0 216 
0;/0;0;0;0]}0; 4);10) 0)0 1000 
0;/0;0;0;/0};0; 5); 4) 5 )0 160 
0;/0;0;0;/0/0; 5); 8) 5)0 10240 
0;/0;0;0)/0}0/} 6; 2) 8 )0 32 
0;/0;0;0];0]0;} 6}; 2 )10) 0 50 
0;/0;0;0)/0}0/} 6); 4) 6)0 73728 
0;/0;0;/0}/0};0;} 7); 2) 8 )0 56 
0;/0;0;0)/0;0/} 7}; 2) 9)0 84 
0;/0;0;0}/0;0; 8}; 2) 8 )0 112 
0;/0};0;0])/0]0; 8 |} 2 )10) 0 720 
0;/0;0;0;/0};0; 9}; 2) 9)0 570 
0;/0;0;0;0]}0; 9 |} 2 )10)0 3420 
0;/0;0/0]0|4] 6 0} 610 54 
0;/0;0/;0]0]4] 8 0 0 | 0 128 
0;/0};0;0]0|4)10) 0 0 | 0 250 
0;/;0;0/0]0|5] 6 0 0 | 0 650 
0;/0};0/;0)/0/6; 6); 4) 6)0 1152 
0;/0;0/;0)/0/}6; 8} 6) 6)0 3456 


2.2 Mj. Permutation Progenitor of 2*°° : (23 » S4) 


A symmetric presentation for G = (2° : 


S4). We start with a group on 


96 letters and examine the FPGroup to find a presentation of our group N. 


2 


>S:=Sym(96) ; 

>xx:=S!(1, 86, 25, 96)(2, 51, 40, 54)(3, 73, 60, 77)(4, 78, 67, 70) 
(5, 85, 7, 88)(6,87, 28, 64)(8, 17, 72, 58)(9, 90, 82, 55)(10, 14, 
12, 92)(11, 89, 39, 71) (13, 22, 76, 69)(15, 75, 65, 80)(16, 41, 19, 
79) (18, 74, 68, 35)(20, 33, 57, 84)(21, 48, 23, 47)(24, 95, 29, 45) 
(26, 31, 62, 34)(27, 46, 66, 49)(30, 59, 32, 56)(36, 53, 38, 50) (37 
91, 81, 52)(42, 61, 44, 94)(43, 93, 83, 63); 

Syyi=8! C1, 3, 14) (2; 8) 13).c4,, 20; 51) G,. 15, 55) ey 26, 71)(7,-19, 
54)(9, 35, 46)(10,30, 64)(11, 41, 70)(12, 34, 49)(16, 50, 21) (17, 
61, 29)(18, 63, 24)(22, 68, 89)(23, 65, 92)(25, 57, 53)(27, 59, 94) 
(28, 56, 52)(31, 45, 36)(32, 76, 38)(33, 78, 43)(37, 80, 47)(39, 75 
96) (40, 74, 95)(42, 84, 85)(44, 77, 48)(58, 91, 69)(60, 90, 67) (62, 
93, 66)(72, 87, 82)(73, 86, 83)(79, 88, 81); 


>N:=sub<S|xx,yy>; 


>#N; 
192 

To find the presentation of N: 
>FPGroup (N) ; 


Finitely presented group on 2 generators 


Relations 
$.1°4 = Id($) 
$.2°3 = Id($) 


($.1 * $.27-1 * $.17-1 * $.2°7-1)°2 = Id($) 


$.17-1 * $.2 * $.17-2 * $.27-1 * $.17-1 * $.2 * $.172 * $.27-1 


1 


> 


> 


Id($) 
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Then, we convert this into elements of a and 6 to ensure we have the same group. 


>NN<a,b>:=Group<a,b| 


a“4 , 


(a * b°-1 * a*-1 * b*-1)°2, 

a~-1 * b * a°-2 * b°-1 * a°-1 * Db * a°2 * dD -1 >; 
>#NN ; 
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>f, Gl, k :=CosetAction(NN, sub<NN|Id(NN)>) ; 
>w:=IsIsomorphic(N, G1); 
>W; 


true 


We sce here that the presentation is isomorphic to N. Next, we add t? 
to the presentation since |t;| = 2, which gives the free product 2*°°. Therefore our 


progenitor becomes 


G<a,y tle (ay ay) eye ey eo yey PN) 


where ¢ ~ t; and N! is the point stabilizer defined by N! = {n € N|1" = 1}. Now, 
the point stabilizer is < (2, 42)(3, 62)(5, 25)(6, 29) (8, 74)(9, 83) (10, 44) (11, 40) (12, 
39) (13, 70) (14, 93)(15, 68) (16, 26)(17, 60) (18, 20)(19, 58) (21, 67)(22, 27) (30, 34) 

(31, 35) (32, 72) (33, 73) (36, 43) (37, 82) (38, 81)(41, 84) (45, 86) (46, 78)(47, 76) (48, 
49) (50, 61)(51, 63) (52, 92) (53, 89) (54, 91)(55, 94) (56, 65)(57, 59)(64, 96) (71, 90) 

(75, 77)(79, 80) (85, 95) (87, 88) >, which we convert to words using a program that 


uses the Schreier System. 


>word:=function(A) 

>Sch:=SchreierSystem(NN, sub<NN|Id(NN)>) ; 

>for i in [2..#NN] do 

>P:=[Id(N): 1 in [1..#Sch[i]]]; 

>for j in [1..#Sch[i]] do 

>if Eltseq(Sch[i])[j] eq 1 then P[j]:=xx; end if; 

>if Eltseq(Schli])[j] eq -1 then P[j]:=xx*-1; end if; 
>if Eltseq(Sch[i])[j] eq 2 then PL[j]:=yy; end if; 

>if Eltseq(Sch[i])[j] eq -2 then P[j]:=yy*-1; end if; 
>end for; 

>PP:=Id(N) ; 

>for k in [1..#P] do 

>PP:=PP*P[k]; end for; 

>if A eq PP then B:=Sch[i]; end if; 

>end for; 

>return B; 


>end function; 


>A:=N!(2, 42)(3, 62)(5, 25)(6, 29)(8, 74)(9, 83) (10, 
(12, 39)(13, 70) (14, 93)(15, 68) (16, 26)(17, 60) (18, 
(21, 67) (22, 27) (30, 34)(31, 35) (32, 72) (33, 73) (36, 


(38, 81) (41, 84) (45, 86) (46, 78) (47, 76) (48, 49) (50, 


44) (11, 40) 
20)(19, 58) 
43) (37, 82) 


61) (51, 63) 


(52, 92)(53, 89) (54, 91) (55, 94) (56, 65) (57,59) (64, 96) (71, 90) 


(75, 77)(79, 80) (85, 95) (87, 88); 
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>word (A); 


axb~-1*a7-1*b7-1 


So now, we can re-write (a*b~!*a7!«b7!) as (xy~!a~!y~!). Hence, the progenitor 


becomes 


Gate y oy ee yey yer eae ey 
Recall, this progenitor is infinite, therefore, we must factor by first order 


relations in order to see the finite homomorphic images of 2*%° : (2? : $4). 


2.2.1 First Order Relations of 2*% : (2? : $4) 


The first order relations we will examine are of the form (7t?)°, where 7 
is a permutation in N. In order to find first order relations, we examine the con- 
jugacy classes of N = 2° : $4. We find the centralizers of each class representative 


and the corresponding orbits on 96 letters. 
Class 2 has centralizer < (1, 7)(2, 12)(3, 19)(4, 23) (5, 25) (6, 29) (8, 34)(9, 38)(10 


( ) )( ) 
(32, 35) (33, 80) (36, 82)(37, 43) (39, 42)(41, 77) (45, 87) (46, 76) (47, 78) (48, 70) (50 
( ) )( ) 


Class 3 has centralizer < (1, 25)(2, 40) (3, 60) (4, 67) (5, 7)(6, 28) (8, 72)(9, 82)(10 


)¢ 

11, 39) (13, 76)(14, 92) (15, 65)(16, 19)(17, 58) (18, 68) (20, 57) (21, 23) (22, 69) (24, 29) (26 

27, 66) (30, 32)(31, 34) (33, 84)(35, 74) (36, 38) (37, 81) (41, 79) (42, 44) (43, 83) (45, 95) (46 
)(50, 53)(51, 54) )(56, 59) )(70, 78) 

)(85, 88)(86, 96) > 


47, 48) (50, 53) (51, 54)(52, 91)(55, 90) (56, 59)(61, 94) (63, 93) (64, 87)(70, 78) (71, 89) (73 


~~ a 


75, 80) (85, 88) (86, 96 


y) 


5, 


’ 
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Class 4 has centralizer < (1, 66)(2, 11)(4, 24) (5, 27) (6, 67) (7, 69) (8, 84) (9, 43) (10, 


39)(12, 44) (13, 95)(14, 93)(15, 57) (16, 60)(17, 26) (21, 29) (22, 25) (23, 28) (30, 77)(31, 33) (32 
79) (34, 75) (35, 73)(36, 83) (37, 38) (40, 42)(41, 74) (45, 46) (47, 88) (48, 96) (49, 64) (50, 71)(51 
)( 


63)(52, 92) (53, 94) (54, 91)(55, 89) (59, 68) (61, 90) (70, 85) (72, 80) (76, 87) (78, 86)(81, 82) >. 


69)(11, 23) (12, 27)(13, 16)(14, 80) (15, 64)(17, 88) (18, 96) (19, 45) (20, 76) (21, 37) (24, 82) (25 


(oe) 


3 


) 
) 
) 
) 
) 
) 
26, 86 ) 
) 


( 
( 
( 
( 
Class 5 has centralizer < (1, 42)(2, 22) (3, 87)(4, 44) (5, 81)(6, 10) (7, 39)(8, 52) (9, 
)(1, 23)( )(13, 16) ( ) )(24, 82) 
)(26, 86) (28, 36) (29, 40) (30, 91)(31, 94) (32, 71)(33, 54)(34, 63) (35, 61) (38, 66) (41, 55) (43 
67)(46, 65) (47, 59) (48, 58) (49, 60) (50, 75) (51, 79) (53, 77) (56, 85) (57, 95) (62, 70)(68, 78)(72 
89)(73, 92)(74, 93)(84, 90) > 

Class 6 has centralizer < (1,3, 14)(2, 8, 13)(4, 20, 51)(5, 15, 55)(6, 26, 71)(7, 19, 
54)(9, 35, 46) (10, 30, 64)(11, 41, 70) (12, 34, 49) (16, 50, 21)(17, 61, 29) (18, 63, 24) (22, 68, 89) 
(23, 65, 92) (25, 57, 53)(27, 59, 94)(28, 56, 52)(31, 45, 36) (32, 76, 38)(33, 78, 43) (37, 80, 
47)(39, 75, 96) (40, 74, 95) (42, 84, 85) (44, 77, 48) (58, 91, 69)(60, 90, 67) (62, 93, 66)(72, 87, 
82)(73, 86, 83)(79, 88, 81) > 

Class 7 has centralizer < (1, 24, 7, 28)(2, 43, 12, 37)(3, 57, 19, 15) (4, 66, 23, 69) 
(5, 29, 25, 6)(8, 77, 34, 41) (9, 11, 38, 44)(10, 83, 40, 81)(13, 46, 49, 76) (14, 71, 54, 61)(16, 
20, 60, 65)(17, 56, 26, 18)(21, 27, 67, 22)(30, 84, 74, 75) (31, 73, 72, 79) (32, 80, 35, 33)(36, 
39, 82, 42) (45, 95, 87, 64)(47, 70, 78, 48)(50, 93, 90, 91) (51, 89, 92, 94) (52, 55, 63, 53)(58, 
68, 62, 59)(85, 88, 96, 86) > 

Class 8 has centralizer < (1,67, 7, 21)(2, 43, 12, 37)(3, 18, 19, 56)(4, 25, 
23, 5) (6, 69, 29, 66)(8, 31, 34, 72)(9, 44, 38, 11) (10, 83, 40, 81)(13, 96, 49, 85)(14, 94, 54, 
89)(15, 26, 57, 17)(16, 68, 60, 59) (20, 62, 65, 58)(22, 28, 27, 24) (30, 35, 74, 32) (33, 75, 80, 
84)(36, 42, 82, 39)(41, 79, 77, 73) (45, 78, 87, 47)(46, 86, 76, 88) (48, 64, 70, 95) (50, 63, 90, 
52)(51, 61, 92, 71)(53, 91, 55, 93) > 
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Class 9 has centralizer < (1, 86, 25, 96)(2, 51, 40, 54)(3, 73, 60, 77) (4, 78, 67, 
70)(5, 85, 7, 88)(6, 87, 28, 64)(8, 17, 72, 58)(9, 90, 82, 55)(10, 14, 12, 92)(11, 89, 39, 71) 
(13, 22, 76, 69)(15, 75, 65, 80)(16, 41, 19, 79) (18, 74, 68, 35) (20, 33, 57, 84)(21, 48, 23, 
47)(24, 95, 29, 45)(26, 31, 62, 34)(27, 46, 66, 49)(30, 59, 32, 56)(36, 53, 38, 50)(37, 91, 
81, 52)(42, 61, 44, 94)(43, 93, 83, 63) >. 

Class 10 has centralizer < (1, 72, 4, 32)(2, 60,9, 65)(3, 40, 15, 82) (5, 74, 21, 34) 
(6, 79, 27, 33)(7, 31, 23, 35)(8, 25, 30, 67)(10, 57, 36, 19)(11, 62, 37, 68)(12, 16, 38, 20)(13, 
92, 45, 53)(14, 76, 50, 95)(17, 42, 56, 83)(18, 81, 26, 39)(22, 80, 29, 73)(24, 75, 69, 77)(28, 
84, 66, 41)(43, 59, 44, 58)(46, 90, 64, 54)(47, 93, 85, 61)(48, 94, 88, 63)(49, 51, 87, 55)(52, 
70, 89, 86)(71, 78, 91,96) >. 

Class 11 has centralizer < (1,57, 51, 7, 15,92)(2, 74, 46, 12, 30, 76) (3, 90, 5, 19, 
50, 25)(4, 60, 14, 23, 16, 54)(6, 56, 94, 29, 18, 89)(8, 87, 10, 34, 45, 40)(9, 72, 13, 38, 31, 49) 
(11, 75, 47, 44, 84, 78)(17, 91, 28, 26, 93, 24) (20, 53, 21, 65, 55, 67) (22, 58, 61, 27, 62, 71) 
(32, 64, 82, 35, 95, 36)(33, 85, 81, 80, 96, 83)(37, 79, 70, 43, 73, 48) (39, 41, 88, 42, 77, 86) 
(52, 69, 68, 63, 66,59) >. 

Class 12 has centralizer < (1,83, 24, 40, 7, 81, 28, 10)(2, 4, 43, 66, 12, 23, 37, 
69) (3, 86, 57, 85, 19, 88, 15, 96) (5, 42, 29, 36, 25, 39, 6, 82)(8, 61, 77, 14, 34, 71, 41, 54) 
(9, 67, 11, 22, 38, 21, 44, 27)(13, 68, 46, 62, 49, 59, 76, 58)(16, 70, 20, 78, 60, 48, 65, 47) 
(17, 87, 56, 64, 26, 45, 18, 95)(30, 94, 84, 51, 74, 89, 75, 92)(31, 93, 73, 90, 72, 91, 79, 50) 
(32, 52, 80, 55, 35, 63, 33,53) >. 

Class 13 has centralizer < (1,73, 67, 41, 7, 79, 21, 77)(2, 20, 43, 62, 12, 65, 37, 
58)(3, 83, 18, 40, 19, 81, 56, 10) (4, 33, 25, 75, 23, 80, 5, 84)(6, 72, 69, 8, 29, 31, 66, 34)(9, 
60, 44, 59, 38, 16, 11, 68) (13, 89, 96, 14, 49, 94, 85, 54)(15, 39, 26, 36, 57, 42, 17, 82)(22, 
32, 28, 30, 27, 35, 24, 74) (45, 63, 78, 90, 87, 52, 47, 50)(46, 93, 86, 53, 76, 91, 88, 55)(48, 
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92, 64, 71, 70, 51, 95,61) > 

With this we are given the first order relations of N which we convert to 
words. (1, 7)(2, 12)(3, 19)(4, 23) (5, 25) (6, 29)(8, 34)(9, 38) (10, 40) (11, 44)(13, 49) (14, 
54) (15, 57) (16, 60) (17, 26) (18, 56)(20, 65)(21, 67) (22, 27) (24, 28) (30, 74) (31, 72) (32, 35) 
(33, 80) (36, 82)(37, 43)(39, 42) (41, 77) (45, 87) (46, 76) (47, 78)(48, 70) (50, 90)(51, 92) (52, 
63) (53, 55) (58, 62)(59, 68) (61, 71)(64, 95) (66, 69) (73, 79)(75, 84) (81, 83) (85, 96) (86, 88) 
(89, 94) (91, 93)t = ((xy)*)t. 
(1, 25) (2, 40)(3, 60) (4, 67) (5, 7) (6, 28)(8, 72)(9, 82) (10, 12)(11, 39) (13, 76) (14, 92)(15, 65)(16 


19) (17, 58)(18, 68) (20, 57) (21, 23) (22, 69) (24, 29) (26, 62) (27, 66) (30, 32) (31, 34) (33, 84) (35 


) ( ( ( ( ( ( 
74) (36, 38)(37, 81)(41, 79) (42, 44)(43, 83) (45, 95) (46, 49) (47, 48) (50, 53)(51, 54)(52, 91 oe 
) ( ( 


90) (56, 59) (61, 94) (63, 93) (64, 87) (70, 78)(71, 89)(73, 77)(75, 80) (85, 88) (86, 96)t = 

(1, 66)(2, 11)(4, 24) (5, 27)(6, 67)(7, 69)(8, 84)(9, 43) (10, 39) (12, 44) (13, 95) (14, 93) (15, 57) (16, 
) )( 

42)(41, 74)(45, 46) (47, 88) (48, 96) (49, 64)(50, 71)(51, 63) (52, 92) (53, 94)(54, 91)(55, 89) (59, 

68) (61, 90)(70, 85)(72, 80) (76, 87) (78, 86)(81, 82)t = (wyxy)t. 

(1, 42) (2, 22)(3, 87) (4, 44)(5, 81) (6, 10)(7, 39) (8, 52)(9, 69) (11, 23) (12, 27) (13, 16) (14, 80) (15 


64)(17, 88) (18, 96)(19, 45) (20, 76) (21, 37)(24, 82) (25, 83) (26, 86) (28, 36) (29, 40)(30, 91)(31 


( ( 
( ( 


) 
( 
( 
( 
) 
60) (17, 26) (21, 29) (22, 25) (23, 28)(30, 77)(31, 33) (32, 79) (34, 75) (35, 73) (36, 83) (37, 38) (40, 
( 
( 
87) 
(19, 45)( 
(34, 63) (35, 61)(38, 66) (41, 55) (43, 67) (46, 65) (47, 59) (48, 58) (49, 60) (50 
(56, 85)( 


) ( 

94) (32, 71) (33, 54) ( 

75)(51, 79) (53, 77)(56, 85) (57, 95) (62, 70) (68, 78) (72, 89) (73, 92)(74, 93) (84, 90)t = (x2yxy =a 
( 


(1,3, 14)(2, 8, 13) (4, 20, 51)(5, 15, 55) (6, 26, 71)(7, 19, 54)(9, 35, 46)(10, 30, 64)(11, 41, 70) (12, 34, 
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40, 81)(13, 46, 49, 76) (14, 71, 54, 61) (16, 20, 60, 65) (17, 56, 26, 18) (21, 27, 67, 22)(30, 84, 74, 75)(31, 
73, 72, 79) (32, 80, 35, 33) (36, 39, 82, 42)(45, 95, 87, 64) (47, 70, 78, 48) (50, 93, 90, 91) (51, 89, 92, 94) 
(52, 55, 63, 53) (58, 68, 62, 59)(85, 88, 96, 86)t = (ay)?t. 

(1, 67, 7, 21)(2, 43, 12, 37)(3, 18, 19, 56)(4, 25, 23, 5)(6, 69, 29, 66)(8, 31, 34, 72)(9, 44, 38, 11)(10, 83, 
40, 81)(13, 96, 49, 85) (14, 94, 54, 89) (15, 26, 57, 17) (16, 68, 60, 59) (20, 62, 65, 58) (22, 28, 27, 24) (30, 
35, 74, 32)(33, 75, 80, 84) (36, 42, 82, 39)(41, 79, 77, 73) (45, 78, 87, 47) (46, 86, 76, 88) (48, 64, 70, 95) 
(50, 63, 90, 52) (51, 61, 92, 71)(53, 91, 55, 93)t = (ay~)?t. 

(1, 86, 25, 96)(2, 51, 40, 54) (3, 73, 60, 77) (4, 78, 67, 70) (5, 85, 7, 88) (6, 87, 28, 64) (8, 17, 72, 58) (9, 90, 
82, 55)(10, 14, 12, 92)(11, 89, 39, 71) (13, 22, 76, 69)(15, 75, 65, 80) (16, 41, 19, 79) (18, 74, 68, 35) (20, 
33, 57, 84)(21, 48, 23, 47) (24, 95, 29, 45) (26, 31, 62, 34) (27, 46, 66, 49)(30, 59, 32, 56) (36, 53, 38, 50) 
(37, 91, 81, 52) (42, 61, 44, 94)(43, 93, 83, 63)t = xt. 

(1, 72, 4, 32) (2, 60, 9, 65) (3, 40, 15, 82) (5, 74, 21, 34)(6, 79, 27, 33)(7, 31, 23, 35)(8, 25, 30, 67) (10, 57, 
36, 19) (11, 62, 37, 68) (12, 16, 38, 20) (13, 92, 45, 53)(14, 76, 50, 95) (17, 42, 56, 83)(18, 81, 26, 39) (22, 
80, 29, 73)(24, 75, 69, 77) (28, 84, 66, 41)(43, 59, 44, 58) (46, 90, 64, 54)(47, 93, 85, 61) (48, 94, 88, 63) 
(49, 51, 87, 55) (52, 70, 89, 86)(71, 78, 91, 96)t = (ay~layary)t. 

(1,57, 51, 7, 15, 92)(2, 74, 46, 12, 30, 76) (3, 90, 5, 19, 50, 25) (4, 60, 14, 23, 16, 54)(6, 56, 94, 29, 18, 89) 
(8, 87, 10, 34, 45, 40) (9, 72, 13, 38, 31, 49) (11, 75, 47, 44, 84, 78) (17, 91, 28, 26, 93, 24) (20, 53, 21, 65, 55, 
67) (22, 58, 61, 27, 62, 71) (32, 64, 82, 35, 95, 36) (33, 85, 81, 80, 96, 83)(37, 79, 70, 43, 73, 48) (39, 41, 88, 
42,77, 86) (52, 69, 68, 63, 66, 59)t = (x?y)t. 

(1, 83, 24, 40, 7, 81, 28, 10) (2, 4, 43, 66, 12, 23, 37, 69) (3, 86, 57, 85, 19, 88, 15, 96) (5, 42, 29, 36, 

25, 39, 6, 82)(8, 61, 77, 14, 34, 71, 41, 54)(9, 67, 11, 22, 38, 21, 44, 27) (13, 68, 46, 62, 49, 59, 76, 

58) (16, 70, 20, 78, 60, 48, 65, 47) (17, 87, 56, 64, 26, 45, 18, 95)(30, 94, 84, 51, 74, 89, 75, 92)(31, 

93, 73, 90, 72, 91, 79, 50) (32, 52, 80, 55, 35, 63, 33, 53)t = (ay)t. 

(1, 73, 67, 41, 7, 79, 21, 77) (2, 20, 43, 62, 12, 65, 37, 58)(3, 83, 18, 40, 19, 81, 56, 10) (4, 33, 25, 75, 
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23, 80, 5, 84) (6, 72, 69, 8, 29, 31, 66, 34) (9, 60, 44, 59, 38, 16, 11, 68)(13, 89, 96, 14, 49, 94, 85, 54) 
(15, 39, 26, 36, 57, 42, 17, 82) (22, 32, 28, 30, 27, 35, 24, 74) (45, 63, 78, 90, 87, 52, 47, 50)(46, 93, 
86, 53, 76, 91, 88, 55) (48, 92, 64, 71, 70, 51, 95, 61)t = (zy~*)t. 


Adding these relations gives us our final representation of G & 2*°° : (23 + $4), 


G<a,y,tle*,y*, (ey a ty) a lye Ay te lys?’y 1? (tay ‘2 ty), 


(Guyer OP) eye ee eee aye 


’ 


1 1 


[Cay 1)242 YF [(ey1)24]9, [(ey 1247 veers eH (art), [at YY fet, 


[xet ue tye"! — 


The following table gives the finite images of the progenitor 2*% : (2° + 


S4) when these first order relations are added. 


2.3. Permutation Progenitor of 2*” : (37 : (2: S4)) 


Now, we have a symmetric presentation for G & 2*” : (3? : (2: 94)). We 
start with a group on 72 letters and examine the F'PGroup to find a presentation 


of our group N as previously seen. 


>S:=Sym(72) ; 

>xx:=S!(1, 23, 49, 32, 12, 60)(2, 44, 16, 45, 17, 62)(3, 41, 6, 55, 
50, 33)(4, 63, 14, 46, 8, 43)(5, 66, 26, 58, 31, 72)(7, 61, 19, 28, 
42, 10)(9,20, 24, 54, 29, 38)(11, 69, 35, 70, 37, 18)(13, 21) (15, 
36, 59, 53, 47, 48)(22, 67)(25, 40, 71, 27, 68, 52)(30, 64, 39, 57, 
34, 56) (51, 65); 


>yy:=S!(1, 35, 58, 2, 6, 54, 25, 4)(3, 40, 46, 64, 14, 21, 19, 69) 


Table 2.3: Some Finite Images of the Progenitor 2*°° : (23 : $4) 
b d f)/g}/h}ij} j |k{] 1 | Order of G 
384 
192 
1536 
768 
216 
24576 
150 
3072 
10368 
48000 
3840 
1560 
600 
2400 
5184 
1176 
1944 
6144 
2688 
864 
2211840 
7800 


>|) BH} OU iB] Co} Co} Go] Co} bo 


= 
o 


Ou OU OU BR] BY] BY] Co] Go] GO] Se} by} GO) Oyo 


= 
o 


SOP OL Oo; CO, Oo], OP, Oy oy oy Oop oy Op Oy OPO] OPO] OPO] CO] oO] OC] & 
SP OL Oo; OF, OO] OL OO] OL Ol OPO OPO] OP OP Oy Ol Oy} Oy] Oo} oy oO 
Sy OPO] OF, OO] OP Ol OP Ol OP Op Op Oy OPO] OPO] OPO] CO] Oy] OHO 
SL Ol ol Ol, Oo] Ol Ol Oy Ol Oy Ol Ol, Oo] GO, OG] CO; Ol oOo; o; oa} oa; ao 
OP OL Oo; oO, Ol, Oy oy oy Oy Oop oy Op Oy OPO] CO] OO] CO] OO] CO] oO] O]}] © 
SP OPO] OF, OO] OL Ol OP Ol OPO OPO] OP OP OY Ol OPO] oO} oy Oo 
SLOP, Oo; oO; oO] OC; QO] OPO] OPO] OPO] OP OL CO] Ol CO} Oy] CO} Oy oO 
WILD DO) NM) dN] ClO) OO) OO] OO] OO] Oo; Ol oO; oa; co; ao; oa 
Sl Ol OQ] CO) OO] W] WIN) OG] COLO) OO] OG] CO, O] CO}, O] OG] OG] CO] 
CO} R] OO) BR] BY) Co] Co] BY] bo] Co] DO] DO) DO] DO] DY] CO} Co] Go] CO] CO] NO] 


bo] Co} Go| BB) Go| ©] ©] ©] BY] Go] Od] OF 


OU OU GO| C8) CO} CO] NT] & 


(5, 36, 38,15, 22, 60, 17, 55)(7, 48, 66, 29, 32, 53, 71, 30)(8, 
23, 27, 57, 37, 39, 67, 41)(9, 13, 50, 59, 42, 26, 20, 44)(10, 24, 
12, 31, 45, 48, 16, 65)(11, 63, 18, 51, 49, 34, 61, 52)(28, 62, 
68, 70, 33, 56, 72, 47); 

>N:=sub<S|xx,yy>; 

>#N; 
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To find the presentation of N we find the FPGroup first: 


>FPGroup (N) ; 
Finitely presented group on 2 generators 
Relations 

$.1°6 = Id($) 

$.2°8 = Id($) 

$.2°2 * $.1°-2 * $.2°-1 * $.1 * $.2 = Id($) 


$.17-1 * $.27-1 * $.1 * $.27-1 * $.17-1 * $.27-1 * $.1°3 * $.2 = Id($) 


Next, we add ¢? to the presentation since |t;| = 2, which gives the free product 


2*72 Therefore our progenitor becomes 


1 1 1 


rie y aye yt 


G<x2,y,t >:= Group < 2,y,t\2°, y°, y?x-7y ay, t, 


(t,cyxyx'y'), (t,ry~'2?y) >; 


where t ~ t; and N! is the point stabilizer defined by N' = {n € N|1" = 1}. 
Now, the point stabilizers are 

(2,58) (3, 55)(4, 25) (5, 45)(8, 44) (9, 18)(10, 22) (11, 40) (12, 23) (13, 60) (14, 
15)(16, 39) (17, 63) (19, 67) (20, 31) (21, 49) (24, 64) (26, 36) (27, 46) (29, 66) (30, 71) (34, 
38) (35, 54) (37, 59) (41, 51) (42, 61) (43, 53) (47, 72) (48, 69) (50, 65) (52, 57) (56, 62) (68, 70), 
and 

(2, 25, 54)(3, 41, 65)(4, 58, 35) (5, 18, 46) (8, 69, 34) (9, 45, 27) (10, 67, 42) (11, 
26, 39) (12, 60, 21) (13, 23, 49) (14, 57, 31) (15, 20, 52) (16, 36, 40) (17, 24, 59)(19, 22, 61) 
(29, 71, 53) (30, 66, 43) (37, 64, 63) (38, 48, 44) (47, 68, 62) (50, 51, 55)(56, 70, 72), which 
we convert to words using the Schreier System, as previously seen. So, we can 


re-write (ababa~!b-!) as (wyryxty~!) and (ab~'a?b) as (xy~'x?y). Hence, the 
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progenitor becomes 


1 


G<a,y,tle® yy ey sya ‘yay ‘2 ty ‘2°y, 0, 


(t,zyxyo ty"), (t,2y~'2?y) >. 


Recall, this progenitor is infinite, therefore, we must factor by first order 


relations in order to see the finite homomorphic images of 2*”? : (3? : (2 : S4)). 


2.3.1 First Order Relations of 2*” : (3? : (2: S4)) 


The first order relations we will examine are of the form (mt?)’, where 7 is 
a permutation in NV. In order to find first order relations, we examine the conjugacy 
classes of N & (3? : (2: $4)). As previously seen, we find the centralizers of each 
class representative and the corresponding orbits on 72 letters. Thus,we are given 


the first order relations of N which we convert to words. 


(1, 32)(2, 45)(3, 55)(4, 46) (5, 58) (6, 33)(7, 28)(8, 63)(9, 54)(10, 19) (11, 70) (12, 23) (13, 21) 
(14, 43)(15, 53)(16, 62)(17, 44)(18, 35)(20, 29)(22, 67)(24, 38)(25, 27)(26, 72)(30, 
57)(31, 66)(34, 64)(36, 47)(37, 69)(39, 56)(40, 68)(41, 50)(42, 61)(48, 59)(49, 
60)(51, 65)(52, 71)t = xt. 
(1, 34)(2, 30)(3, 5)(4, 47)(6, 59)(7, 69) (8, 33) (9, 68) (10, 41)(11, 45) (12, 27) (13, 53) (14, 72) 
(15, 25)(16, 71)(17, 32)(18, 66)(19, 60)(20, 46)(21, 35)(22, 62)(23, 31)(24, 28) (26, 
61)(29, 70)(36, 57)(39, 58)(40, 55)(42, 52)(43, 67)(49, 50)(51, 56)(54, 65)t = 
(xy *)*¢. 


(1,7, 33)(2, 10, 46)(3, 15, 43)(4, 19, 45) (5, 25, 67)(6, 28, 32)(8, 34, 69)(9, 35, 61)(11, 47, 60) 
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(12, 39, 62)(13, 40, 72)(14, 53, 55)(16, 56, 23)(17, 59, 24)(18, 54, 42)(20, 30, 
41)(21, 26, 68)(22, 27, 58)(29, 50, 57)(31, 71, 51)(36, 70, 49)(37, 64, 63)(38, 48, 
44) (52, 66, 65)t = (xy—+)?¢. 
(1, 49, 12)(2, 16, 17)(3, 6, 50)(4, 14, 8)(5, 26, 31)(7, 19, 42)(9, 24, 29) (10, 61, 28) (11, 35, 37) 
(15, 59, 47)(18, 69, 70)(20, 54, 38)(23, 32, 60)(25, 71, 68)(27, 52, 40)(30, 39, 
34)(33, 41, 55)(36, 53, 48)(43, 63, 46)(44, 45, 62)(56, 64, 57)(58, 72, 66)t = xt. 
(1, 61, 68) (2, 10, 11)(3, 25, 7)(4, 19, 20) (5, 44, 16)(6, 42, 66) (8, 35, 67) (9, 31, 38) (12, 58, 28) 
(13, 59, 62)(14, 27, 63)(15, 26, 48)(17, 54, 22)(18, 40, 37)(21, 69, 56)(23, 71, 
33)(24, 53, 65)(29, 50, 46)(30, 41, 36)(32, 55, 72)(34, 43, 51)(39, 52, 64)(45, 70, 
49) (47, 60, 57)t = (x?y?)t. 
(1, 58, 6, 25) (2, 54, 4, 35)(3, 46, 14, 19)(5, 38, 22, 17)(7, 66, 32, 71)(8, 27, 37, 67)(9, 50, 42, 20) 
(10, 12, 45, 16)(11, 18, 49, 61)(13, 59, 26, 44)(15, 60, 55, 36)(21, 69, 40, 64) (23, 
57, 39, 41)(24, 31, 48, 65)(28, 68, 33, 72)(29, 53, 30, 43)(34, 52, 63, 51)(47, 62, 
70, 56)t = yt. 
(1, 23, 49, 32, 12, 60) (2, 44, 16, 45, 17, 62)(3, 41, 6, 55, 50, 33)(4, 63, 14, 46, 8, 43)(5, 66, 26, 58, 
31, 72)(7, 61, 19, 28, 42, 10)(9, 20, 24, 54, 29, 38)(11, 69, 35, 70, 37, 18)(13, 
21)(15, 36, 59, 53, 47, 48)(22, 67)(25, 40, 71, 27, 68, 52)(30, 64, 39, 57, 34, 
56)(51, 65)t = xt. 
(1, 8, 7, 34, 33, 69) (2, 20, 10, 30, 46, 41)(3, 67, 15, 5, 43, 25)(4, 11, 19, 47, 45, 60) (6, 17, 28, 59, 32, 
24)(9, 26, 35, 68, 61, 21)(12, 22, 39, 27, 62, 58)(13, 14, 40, 53, 72, 55)(16, 31, 56, 
71, 23, 51)(18, 52, 54, 66, 42, 65)(29, 36, 50, 70, 57, 49)(37, 63, 64)(38, 44, 48)t = 
(xy7")t. 
(1,35, 58, 2, 6, 54, 25, 4)(3, 40, 46, 64, 14, 21, 19, 69) (5, 36, 38, 15, 22, 60, 17, 55)(7, 43, 66, 29, 32, 
53, 71, 30)(8, 23, 27, 57, 37, 39, 67, 41)(9, 13, 50, 59, 42, 26, 20, 44)(10, 24, 12, 31, 


34 


45, 48, 16, 65)(11, 63, 18, 51, 49, 34, 61, 52)(28, 62, 68, 70, 33, 56, 72, 47)t = yt. 

(1, 54, 58, 4, 6, 35, 25, 2)(3, 21, 46, 69, 14, 40, 19, 64) (5, 60, 38, 55, 22, 36, 17, 15)(7, 53, 66, 30, 32, 43, 
71, 29)(8, 39, 27, 41, 37, 23, 67, 57)(9, 26, 50, 44, 42, 13, 20, 59)(10, 48, 12, 65, 45, 

24, 16, 31)(11, 34, 18, 52, 49, 63, 61, 51)(28, 56, 68, 47, 33, 62, 72, 70)t = y~%t. 


Adding these relations gives us our final representation of G & 2*"? : (3? : (2: $4)), 


1 1 1 


sy, yay ‘ety 


G<a,y,tlr yi y’e *y a yt 


1,,-1,.—2 


(¢, cyeua ty), (ay tay), (ot)? ote =), (gy ere 


y 
1y,-2 1,-2.1 


4, (aye), (nyt HF, (ay Seve = Ya, 


(Cl a a 


((xy7!)2eryry yy ((xy7!)2e79ry yt, (x2¢ty Sue") s (gree ere (x?2t7Y 


The following table gives the finite images of the progenitor 2*” : (3? : 


(2 : S4)). Now, we look at finite images of the progenitor 2*” : (3? : (2: .$4)) with 


Table 2.4: Some Finite Images of the Progenitor 2*”? : (3? : (2 : S4)) 


| a b}jceld/ie|f)/g{/h{ij|jj]kjJ{41 Order of G| Shape of G | 
[o/ofololojolojolojlolo]3 120 | 
[O[oloj;ofolojol[ofojo]2]2 864 | 
}Ool[o[o;olojolololojol2i[4 221184 | 


different First Order Relations (FOR). 


1 


G<a,y,tle yy "y ‘ayo ly ley la ly ley, ¢?, 


1,,-1,,.—2 


(t, ayryx ty '), (t, ry ‘x*y), (2319? yx 1 ((xy71)3e¥e “yee, ((xy71)2ervry PY), 


1,,-2 


(a24ty eye *)d ((q2y2)e™ “Ve, (y2e¥)F (wt Y V9, (ay ew), 


(yty ee"), (y3te 2 PS (x2eey tty yk (xt7™™ *¥)! Ss. 
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Table 2.5: Some Finite Images of the Progenitor 2*” : (3? : (2: S4)) with different 
FOR 
a|b g|h k Order of G | Shape of G 
0/0)0] 0 0| 0 0 11664 
0/0)0] 0 0} 2 0 432 
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Chapter 3 


Monomial Progenitors 


3.1 Monomial Progenitor 3*" :,, PSL(2,7) 


We begin with a group G generated by xz and yy, where xx = (1,2,3,4,5,6,7), 
and yy = (1,2)(3,6). The conjugacy classes of group G are listed below. 
Conjugacy Classes of G: 

Cl = {e}, 

C2 = {(1, 2)(3, 6),(2, 5)(4, 6),(1, 6)(2, 3),(2, 3)(4, 7),(2, 6)(4, 5),(3, 6)(5, 7),(3, 
5)(6, 7),(2, 4)(5, 6),(1, 5)(2, 7),(1, 3)(4, 5),(1, 7)(2, 5),(1, 6)(4, 7),(1, 2)(5, 7),(1, 
4)(3, 5),(1, 3)(2, 6),(3, 7)(5, 6),(1, 7)(4, 6), (2, 4)(3, 7),(1, 4)(6, 7),(1, 5)(3, 4),(2, 
7)(3, 4)}, 

C3 = {(1, 5, 6)(3, 7, 4), (1, 4, 7)(2, 5, 3), (2, 6, 3)(4, 5, 7), (1, 2, 5)(3, 6, 4), (1, 4, 
2)(3, 6, 7), (1, 2, 7)(3, 4, 6), (1, 4, 6)(2, 3, 5), (1, 7, 3)(4, 6, 5), (1, 2, 4)(3, 7, 6), 
(1, 6, 7)(2, 3, 5), (1, 6, 5)(2, 4, 3), (1, 2, 4)(5, 6, 7), (2, 7, 5)(3, 6, 4), (1, 5, 6)(2, 
4, 7), (1, 6, 5)(2, 7, 4), (1, 6, 4)(2, 5, 3), (1, 6, 5)(3, 4, 7), (1, 2, 6)(4, 7, 5), (1, 3, 
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5)(2, 6, 7), (1, 4, 2)(3, 7, 5), (1, 4, 2)(5, 7, 6), (2, 5, 3)(4, 6, 7), (2, 3, 5)(4, 7, 6) 
(1, 7, 3)(2, 5, 6), (1, 5, 4)(2, 6, 7), (2, 6, 7)(3, 4, 5), (1, 2, 3)(4, 5, 7), (1, 3, 7)(2, 
4, 6), (1, 3, 2)(4, 7, 5), (1, 2, 4)(3, 5, 7), (1, 4, 5)(2, 7, 6), (1, 6, 3)(4, 7, 5), (A, 7, 
3)(2, 6, 4), (1, 3, 6)(4, 5, 7), (1, 6, 5)(2, 3, 7), (2, 3, 6)(4, 7, 5), (1, 5, 3)(2, 7, 6), 
(1, 5, 7)(3, 6, 4), (1, 3, 7)(2, 5, 4), (1, 7, 2)(3, 6, 4), (1, 5, 2)(3, 4, 6), (1, 7, 4)(2, 
3, 5), (1, 7, 6)(2, 5, 3), (1, 3, 4)(2, 7, 6), (1, 3, 7)(2, 6, 5), (1, 3, 7)(4, 5, 6), (1, 5, 
6)(2, 7, 3), (2, 5, 7)(3, 4, 6), (1, 7, 3)(2, 4, 5), (1, 7, 5)(3, 4, 6), (1, 4, 2)(3, 5, 6), 
(1, 2, 4)(3, 6, 5), (2, 7, 6)(3, 5, 4), (1, 4, 3)(2, 6, 7), (1, 6, 2)(4, 5, 7), (1, 5, 6)(2, 
3, 4)}, 

C4 = {(1, 5)(2, 3, 7, 4), (1, 6)(2, 4, 3, 7), (1, 4, 3, 5)(2, 6), (1, 4, 6, 7)(2, 3), (1, 6, 
3, 2)(4, 5), (1, 5, 4, 3)(6, 7), (1, 2, 6, 3)(4, 7), (1, 2)(3, 5, 6, 7), (2, 3, 4, 7)(5, 6), 
(16/2 3)5 e217) 6.4) (073), 87 5) (4, 6), Cs DG: B85) %5, DE: 
4), (1, 7)(2, 4, 5, 6), (1, 4)(3, 7, 5, 6), (2, 6, 4, 5)(3, 7), (1, 6, 4, 7)(3, 5), (1, 3)(2, 
4, 6, 5), (1, 2, 5, 7)(3, 4), (1, 5, 2, 7)(3, 6), (1, 4)(3, 6, 5, 7), (1, 3, 6, 2)(4, 7), (1, 
6)(2, 7, 3, 4), (1, 3)(2, 5, 6, 4), (2, 4)(3, 5, 7, 6), (1, 5, 3, 4)(2, 6), (1, 6, 7, 4)(2, 5), 
(1, 3, 5, 4)(2, 7), (1, 4, 5, 3)(2, 7), (2, 7, 4, 3)(5, 6), (1, 3, 4, 5)(6, 7), (1, 7, 2, 5)(3, 
6), 4 7, 6)(235); Cy BQ, 4. 723)s Cy 2s 376) (43) CL, 7, 4; 6) (3; 5), (2. HG, 
6, 7, 5), (1, 5, 7, 2)(4, 6), (1, 7)(2, 6, 5, 4), (2, 5, 4, 6)(3, 7), (1, 3, 2, 6)(5, 7)}, 
Gees (Rs ee yee oar g Pa lg se ee ay a) le ae a ee 
TCT 48, 5.620) 0. 7 5 AB) 5 A 78-8, 3G, 5A), 
(Ly8) 5% Oy Ay BY(L, 4; 6:2, 3,7, BY, 78 3 2 6), 3, 6, 4, 5), GC, 
2 BAB BT) (10 6 Ae 8) A beh Buh 76 A, 8 \ Ula 5: 
D,.6:.3.. 7-4), so, FAO 8 Bo 6, ob TS ATO) 8. a Bh, D5, 
AS. 76) (14, 5, 0 FB 8) 8, A: TB; 2), 8 O75 6 A) nd 


CO= 4 (iy Ae 96: B) i, 5) 49, Be G7), Gy 58, Ay 62s Cy Fos Oe: 
Ny A,B. 8), cde 6, Be, Vy 6, 723; A, B29) Uy Bed Bes, 

6), Gy Tp 6; 5) 4-89), Ao: By 7, 6, 4 5), CL, 46, Se 7) 25 8) Cy 26 5; 3 
AD 6 A095 BY (ly SB OA RON Ae 82.50 6) iy BD AG, 
Ns CL de 8 Ae) es BT oe, Gy iy 1 5 Oe eS), Fs 
6); (1,6, 2, 4, 3,5, 7), (1s 7, 4; 2)°6, 3,5), (1, 3, 6) 5, 2; 7) 4), (1,'6, 3; 7, 2,5,4)4 


Similarly, consider the subgroup H of G generated by <(1, 5)(2, 7),(1, 2, 4)(5, 6, 


7)>, has the following conjugacy classes. 


The conjugacy classes of Hare: 
D1 = {e}, 

D2 = {(1, 7)(4, 6),(1, 7)(2, 5),(2, 5)(4, 6)}, 

D3 = {(2, 6)(4, 5),(1, 5)(2, 7),(1, 4)(6, 7),(1, 6)(4, 7),(2, 4)(5, 6), (1, 2)(5, 7)}, 
D4 = {(1, 6, 5)(2, 7, 4),(1, 2, 6)(4, 7, 5),(1, 4, 5)(2, 7, 6),(1, 6, 2)(4, 5, 7),(1, 5 
6)(2, 4, 7),(1, 4, 2)(5, 7, 6),(1, 5, 4)(2, 6, 7),(1, 2, 4)(5, 6, 7)}, and 

D5 = {(1, 4, 7, 6)(2, 5),(1, 2, 7, 5)(4, 6),(1, 7)(2, 4, 5, 6),(1, 5, 7, 2)(4, 6),(1, 7)(2, 


6, 5, 4),(1, 6, 7, 4)(2, 5)}. 


We also consider the irreducible characters ¢ (of H)and ¢° (of G) given below. 


Table 3.1: Irreducible Characters ¢ 
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Class D1 D2 D3 DA D5 
Size 1 3 6 8 6 
Representative | e | (2,5)(4,6) | (1,5)(2,7) | (1,2,4)(5,6,7) | (1, 7)(2, 4, 5,6) 
Q if 1 ai 1 -1 
Table 3.2: Induced Characters ¢© 
Class Cy C2 C3 C4 Cs C6 
Size 1 21 56 42 24 24 
Representative e (1, 2)(3, 6) (L3e 7)(4, 5,6) Cio )(2,4) 7, 3) (1,.2;3,.4,5, 6, 7) (1.4, 153505255) 
ge 7 = 1 -1 0 0 


We induce the character ¢ of H up to G to obtain the character ¢° of G ( @ i) 


as follows. 
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we HnC2 


So, $F = 3(@[(1,7)(4,6) + (1, 7)(2,5) + (2,5)(4,6) + (2,6)(4,5) + (1,5)(2, 7) + 
(1,4)(6, 7) + (1,6)(4, 7) + (2, 4)(5, 6) + (1, 2)(5, 7)]) = 4 +14+1+-14+-14+-1 
1+-1+-1) = 3(-3) =-1. 


So, $F = 4(@[(1, 6, 5)(2, 7, 4) + (1, 2, 6)(4, 7,5) + (1, 4, 5)(2, 7, 6) + (1, 6, 2)(4, 5, 7) + 


(1, 5, 6)(2, 4, 7) + (1, 4, 2)(5, 7,6) + (1, 5, 4)(2, 6, 7) + (1, 2, 4)(5, 6, 7)]) = a(1 +14 


14i+1+141+44)=4) =1. 


&=5 YX ow) 


weHnCea 


Al 


So, oF = %([(1, 2, 7, 5)(4, 6) + (1,7) (2, 4,5, 6) + (1, 6, 7, 4)(2, 5) + (1, 4, 7, 6)(2, 5) + 
(1,5, 7,2)(4,6)+(1, 7)(2, 6,5, 4)]) = $(—1+-1+-1+-1+-14-1) = }(-6) = 


— 


Thus, 6tG=7 -11 -100. 


Now, we find the right coset representation of G over H (transversal of H 
in G), such that, G = HeVH(1, 2,3, 4,5,6,7)UA(1, 4, 7, 3,6, 2, 5)UA(1, 3,5, 7,2, 4,6)U 
H(1,3,7)(2;4,6) U: 21,3) @,4,6,5) U #1; 7,673, 2;4,5) and let ty = € t= 
(15:2;:3)4, 5,6,7),ta= (145-7, 8, 6; 2,5), ta = (13,557, 24, 6) pte = 11,3, 2,4,6), 
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te = (1,3)(2,4,6,5), and ty = (1,7, 6,3, 2,4,5). 


The monomial representation has generators 


A(xx) = 
d(tizrty') o(tiexty') O(tizatz') o(tizrtz') o(tieats') (tixats') 
pe O(taraty") O(towaty') d(towaty') G(teerts') O(torats*) 
| dears") b(tzzrty') d(tsratz') O(tsxatz') o(tz3ratz') ¢(t3ratz') 
| ottanets) G(tawaty') G(taatz') O(taraty') d(tacats') d(taxatg') 
) o(tsxaty") O(tseatz') O(tsratz') P(tsraty') O(tsextz') O(tsxatg*) 
| G(texay) A(teraty") d(torety') G(towatz!) P(terats') d(torety*) 
d(tyzxt;') o(traaty') O(treatz') (treaty!) o(trrats') ¢(trarats') 

' P.O 3000) @ | 

0 001 0 0 

| 0 000100 | 
~ | Oe 20. SL) Sat 90-400 | 

| 0 000010 | 

Os 200: 2022030 at 

ie 000000 | 

and 


| ottuyas" d(iyyts') otiyyts') otuyytg!) Sltivyts!) d(tiyytg!) o( 
baa P(tayyty*) P(tayyts*) P(teyyty") O(teyyts") O(tayyte’) o( 
) osouts) oltsyyty') o(tsyytz') o(tsyyty') o(tsyyts') o(tsyyte') 1 
Nisa P(tayyts') (tayyts*) (tayyty') O(tayyts*) o(tayyte’) O(tayyt7 
O(tsyyty') O(tsyytg') O(tsyyts') O(tsyyty') O(tsyyts') O(tsyyte') of 
Leap *)  d(teyyty') O(teyyts') o(teyyty') O(teyyts') o(teyyts') o( 
sane O(tryyts') d(tryyts*) O(tryyty') O(tryyts*) oltryyts’) 1 


om) 
j=) 
j=) 
jn) 
| 
KH 
j=) 
j=) 


0 00 0 0 0 -!1 
| 0 0 0 0 0 -1 O | 
Since G has square root of unity we find that Zs is the smallest finite 


field of square root unity. Thus, the primitive root of Z3 is -1, and the entries of 


the matrix A(xx) and A(yy) are powers of 3, namely, —1 =3 2. 


The permutation representation of A(xa) and A(yy) of the monomial representa- 


tion is 


(=n) 
f=) 
(a) 
i 
j=) 
fen) 
ex) 


Ors “© 

Go © 

oo. 

Go oo 
> a) 

i 

(a=) 


oOo Oo 
oOo Oo 


tO 0 @ Or% 
G0: Or th, 0070 
i 0 0 
=| 0 
; 00 0 


| 
| 
| 


( ) 
me 
(an) 
(=n) 


> JS. 


0 0 0 


where aj2 = 1, aa4 = 1, a35 = 1, aa3 = 1, a5g = 1, ag7 = 2, a7, = 2. 


Therefore, 


ty > to, 
16 Sty, 
tz — ts, 
eon 
ts > te, 
tg > #, 


t7 > t?. 


Since, we have 7 tis of order 2 we label them accordingly: 


Table 3.3: Labeling for A(xx) 
| i 1S ae | ee ee Sa Ae. | 12 a4 | 
tae tee tae |i tae ieee lite, epee tee ee. laa lode Ill te |) ae 
4JbL} dye ede y type yp bps yep ey sy sys 
| bal epee bee es | ee Ste bee tee Neel bee | ab 
aE Se Be iO A Mise On INET P| On| I Sell Fe It ke |) 


foo 20000] 
ieobeaeraieneee| 
been deen 
"eee E 
000020 0 
es cincatigert | 
teen ct 


where a13 = 2, a92 = 1, a3, = 2, d44 = 2, a55 = 2, ag7 = 2, a7g = 2. Therefore, 
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Table 3.4: Labeling for A(yy) 
1/2/3]74]5]6]7)]8)]9]10] 11) 12] 13] 14 
bie cto: | Ga | Ga) Gee | tee a ee) ee ae ee eae 
tet p dpb pt pty ep etd yp te yp ep eye yy 
Be Nol Ge eg iter | Ste eee abe ES, | bp) take | See lh tie | he 
10: | 2 era ae a) te So 4s) ee 


Therefore, A(yy) = (1, 10)(3,8)(4, 11)(5, 12)(6, 14)(7, 13). In MAGMA 


we confirm if A(xx) and A(yy) generate a group isomorphic to the group G. 


>S:=Sym (14) ; 

maperi=SiCl, 24, 4s 3p Oy 16g LACT 85s Oy, old, M05 Te, 13)3 
>Bper:=S! (1,10) (3,8) (4,11) (5,12) (6,14) (7,13) ; 
>HH:=sub<S | Aper , Bper>; 

>IsIsomorphic (HH,G) ; 

true Mapping from: GrpPerm: HH to GrpPerm: G 

Composition of Mapping from: GrpPerm: HH to GrpPC and 
Mapping from: GrpPC to GrpPC and 


Mapping from: GrpPC to GrpPerm: G 


AT 


>FPGroup(G) ; 
Finitely presented group on 2 generators 


Relations 


$.1°7 = Id($) 
$.2°2 = Id($) 
($.2 * $.17-1)73 = Id($) 


($.1 * $.2 * $.172)74 = Id($) 


>NN<a,b>:=Group<a,b | a7, b°2, (b*a)73, (a*b*a72)74 >; 
>#NN; 


168 


Hence, our work is correct. 


Let G = < x,y > such that x = A(x) and y = A(yy) (as above) then the 
presentation for the monomial matrix is given by G=< x, y|x", y, (yx)?, (wyx?)* > 
with order 168. In order to build a monomial progenitor from this presentation 


we proceed as shown in the following steps. 


Step 1: Find the Normalizer in G 
We find < t; > = {t1, t7,e}. The normalizer of this group in G is {n € G|{t1, t7, e}"} = 


{t,,t?,e}. We compute the generators of the normalizer of < t; > in G. 


>Nt:=Stabiliser(G,{1,8}); Nt; 


Permutation group Nt acting on a set of cardinality 14 
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Order = 24 = 2°3 * 3 

(25.7. 12): (34. Ady, 18)-4,:-6,° 10) (Ss 94 14) 

(2; 10) (3° 9)(4; 14) (5,0 129465 13).0 75-44) 

(ty 6) Be By 12) 47 y td 1A) (S305 13-80) 
>yy*xx"-3; 


(1, 8)(2, 6, 3, 12)(4, 7, 11, 14)(5, 9, 13, 10) 


We find the single permutation, (1, 8)(2, 6, 3, 12)(4, 7, 11, 14)(5, 9, 13, 10), gener- 
ates the normalizer of G in < t; > and notice that the permutation is represented 
as yy * xx. This permutation takes 1 to 8. So, by the labeling of the automor- 


—3 
phisms, we have ye = a (note yy ~ y). 


Step 2: Find the point stabilizer of 1 in G, along with its orbits. 


>Stabilizer(G,1); 
Permutation group acting on a set of cardinality 14 
Order = 12 = 2°2 * 3 

(2, 13, 14)(3, 12, 4)(5, 11, 10)(6, 7, 9) 


(2, 5, 4)(3, 6, 14)(7, 10, 13)(9, 12, 11) 


>Orbits (Stabilizer (G,1)); 
[ 

GSet{@ 1 @}, 

GSet{@ 8 @}, 


GSet{@ 2, 13, 11, 14, 9, 10, 6, 12, 4, 5, 7, 3 @} 


AQ 


Thus, there are 2 generators and 3 orbits. The permutations in G which take 1 to 


1, 1 to 8, and 1 to 2 are given in words in the following code. 


210 XX 
2 
>1° (xx*-3 * yy * xx73); 


8 


Therefore, the permutation represented by xx is a permutation which takes ¢, to tg. 


Step 3: Build Progenitor & Test by Grindstaff Lemma((Section 1.1) 


>FPGroup (G) ; 

Finitely presented group on 2 generators 

Relations 
$.1°7 = Id($) 


$.2°2 = Id($) 


($.2 * $.17-1)73 = Id($) 


($.1 * $.2 * $.172)74 = Id($) 


>G<x,y,t>:=Group<x,y ,tl x°7, y°2, Cy*x7-1)°3, (x*y*x72)74, 

t°3, (t,x * y * x7-3 * y * x), (t,y * x7-2 * y * x72 * y), try * x°-3)=t°2, 
Cy: be Chy ob Ge =a ae RBs 

> #G; 


367416 
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>3°7*168; 


367416 


Hence, a symmetric presentation for the progenitor 3*" :,, PSL(2,7) is 
<2,y,tlx’, y’, (yx), (xyx?)4, t?, (t, eye yz), (t, yx~2yx2y), 8? > = t? >. We ob- 
tain our first order relations as previously done in Section 2.1. So, the first order 
relations are (xyx~'t)*, (xyteyr “yry)o, (ya3tve “Ye, (xt)4, (were Je, (xyxher’yrrye™*) fF 
(xyt® “¥*)9, (yx2eryrrye* yh (atte ye, (xyt¥” “¥"Y)), We factor the progenitor 
G by these relations to obtain finite images (see Chapter 4). Thus, the final 
symmetric presentation is given by 


=4 Es a -3 
Gage ge yan Ee Ie ae a aL, 


3 


(4,47), (t,47° 78"), (ayo le)2, (wyt#™ "v9? (yards? *Y°, (at) 4, (wBerV™™ Ve, 


—2 


(oye tee )F, (aye He)9, (yadervetee yh, (ae), (ays “ey! >, 


3.2 Monomial Progenitor 3** :,, (2* : 4) 


We begin with a group G generated by xx and yy, where xx ~ (4,8), 
and yy ~ (1, 2,3,8)(4,5,6, 7). The conjugacy classes of group G are listed below. 


Conjugacy Classes of G: 


C1 = {e}, 
C2 = {(1, 5)(2, 6)(3, 7)(4, 8)}, 
C3.= {0, 5)@G,-7)}; 

(2, 8)(4, 6)(5, 7)}, 
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OTe tle a, 


7)(4, 8)}, 
C8 = {(1, 7, 5, 3) 
) 


(2, 4, 6, 8)}, 
C9 = {(1, 2, 3, 8)(4, 5, 6, 7)}, 
C10 = 4G, 8,-3;,-2)(4, mane 
3)(2, 8)(4, 6)}, 
C12 = {(1, 4, 7, 6, 5, 8, 3, 2)}, and 


Cll = {(1, 7, 5, 


C13 = {1, 6, 3, 4, 5, 2, 7, 8)}. 


Similarly, consider the subgroup H of G generated by <(2, 6), (1, 3)(2, 8)(4, 6)(5, 
7), (1, 5)(2, 6)(8, 7)(4, 8), (2, 6)(4, 8)>, has the following conjugacy classes. 


The conjugacy classes of H are: 


D1 = {e}, 

D2 = 1 (15-5)(2, O13, F)l4,-8) 
D3 = {(2, 6)(4, 8)}, 

D4 = {(1, 5)(3, 7)}, 

D5 = {(1, 3)(2, 8)(4, 6)(5, 7)}, 
D6 = {(1, 7)(2, 4)(3, 5)(6, 8)}, 
D7 = {(2, 6)}, 

D8 = {(1, 5)(3, 7)(4, 8)}, 

D9 = {(1, 3)(2, 4, 6, 8)(5, 7)}, 


D10 = {(1, 7)(2, 8, 6, 4)(3, 5)}. 
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We also consider the irreducible characters ¢ (of H)and ¢© (of G) given below. 


Table 3.5: Irreducible Characters ¢ 


Class D1 D2 D3 DA D5 I 
Size 1 1 1 1 2 
Representative e (L 5) (2, 6)(3, 7)(4, 8) (2,6) (4, 8) (Lo: 7) (Lae 8)(4, 6) (5, 7) (1, 7)(2, 4 
ob 1 =i i a = 
We induce the character ¢ of H up to G to obtain the character ¢° of G (@ ia) 
as example 3.2. 
n 
e=— SO lw) 
weHnCa 
, where n= fat = = 4. 
G=5 DY ow) 
1 
weEeHnc, 
Table 3.6: Induced Characters ¢@ 
Class Cy C2 C3 C4 Cs C6 
Size 1 1 2 4 4 4 
Representative | e | (1,5)(2,6)(3,7)(4,8) | (1,5)(3,7) | (1,3)(2,8)(4,6)(5, 7) | (1,5) | (1,5)(4, 8) 
of 4 <A 0 0 LD 0 
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So, oF = 1(#((1, 3)(2, 8)(4, 6)(5, 7) + (1, 7)(2, 4)(3, 5)(6, 8) + (1, 7)(2, 8)(3, 5)(4, 6) + 


(1, 3)(2, 4)(5, 7)(6,8))) = 1(-14+1+1+-1) =0. 


1@ 


al 
aaa 
eal 
| 


(#((1, 5)(2, 6)(3, 7) + (1, 5)(3, 7)(4, 8))) = 101 +1) = 1(2) =2. 
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So, % = $(#((1, 3) (2, 8, 6, 4)(5, 7) + (1,3) (2, 4, 6, 8)(5, 7) + (1, 7)(2, 8, 6, 4)(3, 5) + 
(1, 7)(2, 4, 6, 8)(3,5))) = $1 +1+-14+-1) = $(0) =0. 
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So, of3 = 5($(0)) = 3(0) = 0. 


Thus, ¢fG=4 -400 -202000000. 


Now, we find the right coset representation of G over H (transversal of H in G), 
such that, G = HeU (1, 2,3,8)(4,5,6, 7) U (1, 2, 3, 4, 5, 6, 7, 8) U (1, 3, 5, 7) (2, 8)(4, 6) 
and lett =" é,. t= (1,2,3,8)(4,5,6,7), 43 = (1, 2;3,4,5,6,;7,8); and tz, = 
(1,3, 5, 7)(2,8)(4, 6). 


The monomial representation has generators 


d(tiext;') o(tieaty') o(tixatzy') ¢(tizatz") 
Adis G(texat,') d(tewaty') G(towatz') o(toratz') 
Po b(tzrrty') d(tgaatz') (t3xatz') | 
b(tarrt;') o(tavxty') O(taxat;') ewes | 
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and 


o( ) of ) 9 ) of ) 
O(toyyty') d(toyyty") P(teyyts') d(toyyty") 
( ) 9 ) 9 ) 9 ) 
( ) 9 ) 9 ) ) 


Since G has square root of unity we find that Z3 is the smallest finite field of square 
root unity. Thus, the primitive root of Zs is -1, and the entries of the matrix A(xx) 


and A(yy) are powers of 3, namely, —1 =3 2. 


The permutation representation of A(x) and A(yy) of the monomial representa- 


tion is 
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-1 0 0 0 

0 O 1 0 
A(x) = 

0 1 0 0 

0 OO -!Il 


where a4, = 2, a23 = 1, 33> al a44 = 1. 


Therefore, 


ty > #8, 
tg > t3, 
t3 — to, 


ta > #3. 
Since, we have 4 tis of order 3 we label them accordingly: 


Table 3.7: Labeling for A(xx) 
i 3 alse as 
Glin hae eee 
tid pL pb] td] eh) 444 
tee cba) toe NR | ea te 24) a 
Ee Se ae Seale oe. 


Therefore, A(xax) = (1, 5)(2,3)(4, 8)(6, 7). Similarly, 


where aj = 1, ag1 = 2, a34 = 1, agg = 1. 


Therefore, 


ti — ta, 
to — t, 
t3 > ta, 


t4 > ts. 
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Table 3.8: Labeling for A(yy) 
| Be 8 ae | 6 res 
ty | ta | ty | ta) ee ee 
apelM ales | abn aLe eed (Ul fecal hee 
ba ta | oa ee a) eee 
Dich BCG lh Ae | Baa 7? 


Therefore, A(yy) = (1, 2,5, 6)(3, 4)(7, 8) 


. In MAGMA we confirm if A(xx) 


and A(yy) generate a group isomorphic to the group G. 


>S:=Sym(8) ; 


>Aper :=S! (1,5) (2,3) (4,8) (6,7); 
>Bper :=S! (1,2,5,6) (3,4) (7,8); 
>HH: =sub<S | Aper , Bper>; 


>IsIsomorphic (HH,G) ; 


true Mapping from: GrpPerm: HH to GrpPerm: G 


Composition of Mapping from: GrpPerm: HH to GrpPC and 


Mapping from: GrpPC to GrpPC and 


Mapping from: GrpPC to GrpPerm: G 


>FPGroup (G) ; 
Finitely presented group on 2 generators 


Relations 


$.1°2 = Id($) 
$.2°4 = Id($) 


($.2 * $.1 * $.27°-1 * $.1)72 = Id($) 


$.2°-1 * $.1 * $.2°-2 * $.1 * $.2°2 * $.1 * $.2°2 * $.1 * $.27°-1 


>NN<a,b>:=Group<a,b|a*2,b°4, (b*a*b*-1*a) “2, 


(b*-1 * a * bD°-2 * a * D°2 * a * DTQ2 * a * D*-1)>; 


>#NN; 


64 


Hence, our work is correct and we have a monomial progenitor 3*4 
a symmetric presentation for the progenitor 3*4 :,, (2 


rey lea), (y learey Qeaeyreacxyrxcey 1), tb, (t,c%y’), (tcxyx rey 


: (24: 4). Hence, 


Aig Se ola ye oly 


Id($) 
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xx y*xaxy 1),t” =t? >. We obtain our first order relations as previously done 
in Section 2.1. So, the first order relations are ((xy)*t)%, ((yxy)2t¥°7Y)®, (at¥°7Y)°, 
-1,.,,2 = 2 2 eee) ns) STE oes 
(yi ee 4 (ay ayy), (oyragay ye )1 (ye) te, (yee ey", (ee ey, 
xy They? ys yx . We factor the progenitor G by these relations to obtain 
yxy)t®y ey" )I 34) | We factor th itor G by th lations to obtai 


finite images (see Chapter 4). Thus, the final symmetric presentation is given by 


G<a,y,tlx?,y*, (yxaxy lea), (y lacey 2eary eaxy’ xa x 
((yay)?4¥79)>, (wt¥°29)°, (y2e79'29°)4, ((aytay)t°*9)°, ((xyayny)tY™)S, 


((yar)?#)9, (yt? 8)", (Cyt )ery 29°), ((yy)tt4'*4°)9, (yar)3t)* > | 
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Chapter 4 


Double Coset Enumermation 


4.1 Construction of 21: (3? : 4) over (3? : 4) 


Consider the progenitor 2* : (3? : 4) &< a, y, z, t|x?, y?, 24, (a1 *y)’, 


1 1 1 ‘d 1 iL 1 


ztaysztaelegteataztagtazegnez,t, (t,2), (t,2* 207 


eR) Ss 
where N =< a,y,z >& (3? : 4) and the action on the symmetric generators 
are given by with x ~ (2,4,6), y ~ (1,5)(2,4), z ~ (1,4,5, 2)(3,6), and t), and 
2*6 : (3? : 4) is factored by the relations (xzrz—!t)®, (xzaz—1t—1)3, and (zt)®. We 


begin by expanding these relations starting with (rzxz—'t)® = 1. 


(nzaz1t)® =1 
—> [(2,4,6) * (1, 4,5, 2)(3, 6) * (2,4, 6) * (1, 2,5, 4)(3, 6)t,]® 
=> [(1,3,5)(2,4, 6)t,]° 


— > (nt1)°(we let(1,3,5)(2, 4,6) = 7) 
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=> mthyartyratyatyrty at, 


=>? ann ltyrty arty ety ty aty 


= wean ty ty rty arty arty ty 


= 7 


2 
ae tty™ titintiatiat, 
3 72 
=> nian 'ty™ tt titintinty 


4 3 2 
=> pant" 7 tt t{tinty 


> ye ty ty” tty 
—> etststitst3t; = 1 
=> t5tst, = tytsts (4.1) 
=> Ntstst, = Ntytsts. 
Now we expand our second relation, (wzaz—'e "3 = 1, as follows 
(xzxz't?')? =1 
=> [(2,4,6) * (1,4,5, 2)(3, 6) * (2,4, 6) * (1,2, 5, 4)(3, 64? C3 
— [(1,3,5)(2, 4, 6)t2]® 
— (nto)3(let(1,3,5)(2, 4,6) = 7) 
=> TlottoTts 
> Pty” tote 
=> etgtato = 1 


=> etgtato = 1 (4.2) 
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=> Ntgt4 = Nto. 


Also, (zt)® = 1, (let z = (1,4, 5, 2)(3, 6) = 7) 


=> (xt,)§ 


eT ty ty th 
—> etotstatytotstat, = 1 
—> etotstatitotstat; = 1 (4.3) 
=> Ntotstat, = Ntytatste. 
Which gives the finite homomorphic image 


Ge 2*6:(3?:4) 
~~ t5tgti=tit3ts ,tetatga=1,totstatitetstati=1° 


Note that each of these relations, when conjugated by N, give 
more relations. Our goal will be to find the index of N in G through manual double 
coset enumeration of G over N. In order to do this we express G as a union of 
double cosets NgN, where g is an element of G. SoG = NeNUNg NUNg2NU... 
where g;’s are words in t;’s. We will find all double cosets [w] = [Nw"|n € N] 
as well as the number of single cosets each of the double cosets contain. We take 
one representative from each orbit of the coset stabilising group N“) in order to 
identify which double coset Nwt; belongs and finish when the set of right cosets 
obtained is closed under right multiplication by the ¢;’s. 

We will now proceed our manual double coset enumeration of2* : (3? : 4) 
over (37 : 4). 


First Double Coset NeN = [x] 
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Let NeN be denoted by [x]. NeN ={N(e)"|n € N} = {Ne©, Ne@9)(2:3:45) , 
Ne(25.4)(3:6) |, NeA3:5)(2:6.4)[n © N} = {N}. Now, N is the only single coset 
contained in the double coset [*] and is transitive on X = {1,2,3,4,5,6} so it has 


the single orbit: 


{1,2,3,4,5, 6}. 


We select 1 to be the representative from the orbit, so Nt; € Nt;N = 
{Nt |n © N} ={Nti, Nto, Nts, Nts, Nts, Ntg}, forming the new double coset, [1], 
which means that all 6 symmetric generators move forward to Nt,N since they 


share the same orbit. 


Second Double Coset Nt, N = [1] 


[NI 
[Nay]? 


Now, Nt,N is a new coset and the number of single cosets is where 
N) is the coset stabilizer of the coset Nt, which is greater than or equal to the 
point stabilizer of 1 in N, denoted by Nt. NO > N! = fe, (3,5)(4, 6), (2, 4)(3, 5), (2, 4, 6), 
(2, 6, 4), (2, 6)(3, 5)} =< (2, 4,6), (2, 4)(3,5) >= 53. Therefore, the number of sin- 


) 
gle cosets in the double coset Nt; N is | Noy — = = 6 and the orbits of N® on 


X are: 


{1}, {2, 4, 6}, and{3, 5} 


Selecting 1, 2, and 3 as representatives of each orbit, respectively, form- 
ing the cosets Ntit1, Ntite, and Ntit3. We must determine where each coset 


representative belongs to which double coset: 


Ntyty =?, Ntjto =? and Nt\t3 =? 
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Now, Ntyt, € [*], since Nt,t, = Nt? = N. Therefore, one symmetric generator goes 
back to [*]. Next, Ntit2 € Ntit2N = [12] so, two symmetric generators extend to 
[12]. Also, Ntit3, we must use one of our relations to gain clarity. Using the 4.2 
relation listed above, 64 = 2 and conjugating the relation by one element of JN, 


(1,4,3,6)(2,5), we obtain 


Ntgt (143025) 2 we$439025) 


=> Ntitz3 = Nt € [1] 


. Hence, two symmetric generators loop to [1]. 


Third Double Coset Ntit2N = [12] 


Now, Ntit2N is a new coset. The point stabilizer N!? = {e, (35)(46)}. 
But, looking at our relation, 1212=e, we can see that it gives us Ntitg = Ntjte, 


conjugating by (1,2)(3,4,5,6): 
Ne tGIE45) 2 Nai: 


=> = Ntito € eae 


So, N@?) > Nl? = < N!,(1,2)(3,4,5,6) >. Therefore, the number of single 
cosets in the double coset Nt toN is wey = 36 = 9 and the orbits of N“2) on 
X are: 


{1,2}, and{3, 4,5, 6} 


Now, selecting 2 and 3 representatives from each orbit, respectively, form- 


ing the cosets Ntytote, and Nt,tet3. We must determine: 


Ntytatg =?, and Nty tots =? 


67 


Now, Ntitot2 = Nt,t} = Nt, € [1]. Therefore, two symmetric generators go back 


to [1]. Now, to find Nt,tgt3 we must start with 
Ntt2 = Ntot;(relation above) 


=> Ntytet3 = Ntgtit3(multiply by 3) 


we know 
Ntit3 = Nts(from relation above) 
= > Ntotitz3 = Ntgts(multiplying by 2 on the left) 
So, Ntitetz = Ntats € [1,2] (since Ntg*o?Pr OG” = Ntjt2). Therefore, four 


symmetric generators loop to [1,2]. We have no new double cosets, hence, we can 


construct the following Cayley diagram. 


[+] {1] [12] 
N Nt; Ntit2 


Figure 4.1: Cayley Diagram of 2+ : (3? : 4) over (3? : 4) 


68 


4.2 Construction of A; over PSL(2,7) 


Consider the progenitor A7 &< 2, y,t|x°,y”, (a * y)?, 03, ta * y) = >, 
where N=< 2,y >~ PSL(2,7) and the action on the symmetric generators are 
given by with x ~ (1,3,5)(2,4,6), y ~ (1,6)(2,5)(3,4) and t ~ t1, factored by the 
relations: (x *t)*, (x*y*t)?, and (2*y*t™ *t? *t¥ * (t”))3. Our expanded relations 
results are: 


(135)(246)titst3t; =1 (4.4) 


=> Nits = Ntit3 


etat; = 1 (4.5) 


=> Ntzy= Nt 


(14) (23) (56)tgtatetstotitstatstatets =1 (4.6) 
= > Nisztatgtgtoty = Ntgtetatstots. 


Which gives the finite homomorphic image 


Ge 2*6:(PSL(2,7)) 
~~ tetatet tet tettititts 


We will now proceed our manual double coset enumeration ofA7 over 
PSL(Q, 7). 
First Double Coset NeN = [x] 


Let NeN be denoted by [x]. NeN = {N(e)"|n € N} = {N}. Now, 
N is the only single coset contained in the double coset [*] and is transitive on 


X = {1,2,3,4,5,6} so it has the single orbit: 
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{1, 2,3, 4,5, 6}. 


We select 1 to be the representative from the orbit, so Nt; € Nt;N = 
{Nti|n € N} = {Nti, Nto, Nt3, Nta, Nts, Nte}, forming the new double coset, [1], 
which means that all 6 symmetric generators move forward to Nt;N since they 
share the same orbit. 


Second Double Coset Nt, N = [1] 


Now, Nt,N is a new coset and the number of single cosets is TOE where 
N() is the coset stabilizer of the coset Nt; which is greater than equal to the point 
stabilizer of 1 in N, denoted by N!. In this case, N“) > N! = {e}. Therefore, the 
number of single cosets in the double coset Nt,N is oy a § = 6 and the orbits 


of N® on X are: 
{1}, {2}, {3}, {4f, {5}, and {6}. 
Selecting 1, 2, 3, 4, 5, and 6 as representatives of each orbit, respec- 


tively, forming the cosets Nt t,, Ntite, Ntits3, Ntita, Ntits and Nt tg. We must 


determine where each coset representative belongs to which double coset: 


Ntyt, =?, Ntit2 =?, Ntit3 =?, Ntita =?, Ntits =?andNtits =? 


Now, Neitz € [1], since Néyty = NU"? = NEOVCIOS — ney © Nt,N. There- 


fore, one symmetric generator loops to [1]. Next, Nt;tg € Ntit2N = [12] so, one 
symmetric generator extends to [12]. Similarly, Ntit3, Ntits, and Ntite one sym- 


metric generator extend to [13], [15], and [16], respectively. Now, for Nt t4 we 
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must use one of our relations to gain clarity to conclude that Ntit4 € [x]. 


Third Double Coset Ntit2N = [12] 


Now, Ntit2N is a new coset. The point stabilizer N!? = {e}. So, N“?) 
> N™ = {e}. Therefore, the number of single cosets in the double coset Nt,t2N 


is oy = $ = 6 and the orbits of N?) on X are: 


{1}, {2}, {3}, {4}, {5}, and {6}. 


Now, selecting one representative from each orbit, respectively, forming 
the cosets: Ntytet,, Ntytote, Ntitets, Ntiteta, Ntitets, and Ntitotg. We must 
determine where each of these go to. Now, Ntitat; € [121]. Therefore, one sym- 
metric generator extends to [121]. Now, Ntitate € [15] since Ntitete = t3 = tits 


5) (3,4) 


since by our ¢;’s ig=i5 Next, Nt tet3 = tr 9e = tet2 € [15]. There- 


fore, two symmetric generators extend to [15]. So, Ntitat, = Ntats © [1,6] (since 
Neat 2968) = Ntits). Therefore, one symmetric generator goes back to [1,6]. 
Next, Ntitats € [1]. Since Ntitets = Nt§ = Nt. Lastly, Ntitets € [12]. since 
Ntytots=Ni ty?) OO) — nz2e.. 


Fourth Double Coset Ntit3N = [13] 


Now, Nt,t3N is a new coset. The point stabilizer N!8 = {e}. So, N(%) 
SN afer. 


Lemma: 13=42 


Proof: 


Now, N(tit3)¢9?3)66) — Ntyt. = Ntit3 implies (1, 4)(2, 3)(5, 6) € 
N@3)_ So, N@3) > < N33, (1, 4)(2, 3)(5, 6)> and [1,3)%°” gives 13 ~ 42. 


Therefore, the number of single cosets in the double coset Nt t3N is esy = 8 = 3. 


and the orbits of N“@3) on X are: 
{1,4}, {2, 3}, and{5, 6}. 


Now, selecting one representative from each orbit, respectively, forming 


the cosets: Ntt3ti, Ntitgte, and Nt,t3t;. We must determine where each of these 


go to. Now,Ntit3t, = At G G8) = tgt2 € [16]. Therefore, two symmetric 


generators extend to [16]. Next,Ntit3t2 = HPAES”) = tats € [16]. Therefore, 


two symmetric generators extend to [16]. Now, Nt t3t5 = NEL AADES) = Ntg € 
[1]. Therefore, two symmetric generators go back to [1]. 


Fifth Double Coset Ntit;N = [15] 


Now, NtitsN is a new coset. The point stabilizer N!® = {e}. So, N“5) 


> NY = {e}. 
Lemma: 15=46 
Proof: 


Now, N(tits)2923966 — Ntyts = Ntyts implies (1, 4)(2, 3)(5, 6) € 
N(@5). So, NGS) > < N15, (1, 4)(2, 3)(5, 6)> and [1,5}°” gives 15 ~ 46. 
Therefore, the number of single cosets in the double coset Nt t5N is es = g = 3. 


and the orbits of N@5) on X are: 


{1,4}, {2,3}, and{5, 6}. 
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Now, selecting one representative from each orbit, respectively, forming 
the cosets: Ntyt5t,, Ntit5te, and Nt,ts5t;. We must determine where each of these 
go to. Now,Ntitst, = Ht POEIE = tgts € [12]. Therefore, two symmetric 
generators extend to [12]. Next, Ntitst2 = 4!) = t; € [1]. Therefore, two symmetric 
generators extend to [1]. Now,Ntitsts = Net = Ntig € [12]. Therefore, two 


symmetric generators extend to [12]. 


Sixth Double Coset NtitgN = [16] 


Now, NtitgN is a new coset. The point stabilizer N1° = {e}. So, NGS) 
> N'° = {e}. Therefore, the number of single cosets in the double coset NtiteN 


is [NIE = 6 = 6 and the orbits of N@® on X are: 


{1}, {25 {3}, {4}, {5}, and {6}. 


Now, selecting one representative from each orbit, respectively, forming 


the cosets: Nt, tet, Nt teta, Nt tets, Nt teta, Ntytets and Ntytets. We must 


1,5,3) (2,6,4) 


determine where each of these go to. Now,Ntiteti: = titot’ = t5tgts 


€ [121]. Therefore, one symmetric generator extends to [121]. Next,Ntitet2 = 


1,6) (2,5) (3,4) 


tt) = tet; € [16]. Therefore, two symmetric generators loop to [16]. 


Now, Ntitgt3 = N 0) = Nt, € [1]. Therefore, one symmetric generator extends 


to [1]. Now, Ntitets = HA OC-IES) = tatz € [12]. Therefore, one symmetric 


generator extends to [12]. Now, Ntitets = fe Oe) = tots € [13]. Therefore, 
one symmetric generator extends to [13]. Lastly, Ntitgtg = tt) = tyt3 € [13]. 


Therefore, one symmetric generator extends to [13]. 


Seventh Double Coset Nt tg1N = [121] 


Now, Ntitgt1N is a new coset. The point stabilizer N'*! = {e}. So, 


N@21) > N121 = fe}. 
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Lemma: 121=656 


Proof: 


Now, N(ftytgt1)b925)8,4) = Ntetste = Ntytoty implies (CL 6) (2, 5)(3, 4) 
€ N@21)_ So, NG2) > < N11, (1, 6)(2, 5)(3, 4)> and [1,2,1]%°"” gives 121 ~ 


656. 
Therefore, the number of single cosets in the double coset Nt,tot;N is 
ricco = g = 3 and the orbits of N“?) on X are: 


{1,6}, {2,5}, and{3, 4}. 


Now, selecting one representative from each orbit, respectively, form- 


ing the cosets: Ntytotit1, Ntitetite, and Nt tet;3. We must determine where 


each of these go to. Now,Ntytatity = EEO) = tats € [16]. Therefore, 


two symmetric generators extend to [16]. Next,Ntitetite = titot\ 


= tytet) € 
(121]. Therefore, two symmetric generators extend to [121]. Now,N¢titoti3 = 
Nt tL O25G4) = Ntges € [12]. Therefore, two symmetric generators extend to 


[12]. A cayley diagram is shown below. 


Figure 4.2: Cayley Diagram of A7 over PSL(2,7) 
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4.3 Construction of L(2,11) over S4 


Consider the progenitor 2*°: L(2,11) over S4 = 
G<z,y,t\z*, y’, (cy), t, (t, yx), ctatatetytae ltx*tat >, 


where N = S4=< x,y > ~ and the action on the symmetric generators are given 
by with x ~ (1,4, 2,7)(3,5,8,6), y ~ (1, 7)(2, 6)(3, 5)(4, 8) and t ~ t,, factored by 
the relations: (x?t)®, (yt)!°, and (yt”’)?._ We expand our relations as previously 


shown. The expanded relations results are: 
(12) (38) (47) (56)t tetitety = 1 (4.7) 
=> Ntytet) = Ntite 
etrtitrtitrtitrtitrt; = 1 (4.8) 
=> Ntrtytrtyt7 = Nt trtyt7t, 
etgtg = 1 (4.9) 
=> Nig = Nt, 


which gives the finite homomorphic image 


Ge 2*8.(L(2,11)) 


~~ tytotyteti=1 trtytyty tty t7tyt7tj=1 tete=1° 


We will now proceed our manual double coset enumeration of £(2,11) over S4. 


First Double Coset NeN = [x] 


Let NeN be denoted by [*]. NeN = {N(e)"|n © N} = {N}. Now, N 
is the only single coset contained in the double coset [*] and it is transitive on 


X = {1,2,3,4,5,6, 7,8} so it has the single orbit: 
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{1,2,3,4,5,6, 7, 8}. 


Based on the relations (see appendix), we see that t; = ts, to = te, ts = ty, 


t4 = tg, which means that only four symmetric generators move forward to Nt,N. 
We select 1 to be the representative from the orbit, so Nt; € NtiN = {Nt} |n € 
N} = {Nt1, Nto, Nt3, Nt4}, forming the new double coset, [1]. 

Second Double Coset Nt, N = [1] 


Now, Nt,N is a new coset and the number of single cosets is TOE where 
N() is the coset stabilizer of the coset Nt; which is greater than equal to the point 


stabilizer of 1 in N, denoted by N!. In this case, N“) > N! = fe, (2,3,8)(4,6,7)}. 


24 4 


Therefore, the number of single cosets in the double coset Nt,N is oy =F= 


and the orbits of N“) on X are: 


{1}, {5}, {2, 3, 8}, and{4, 6, 7}. 


Selecting 1, 5, 2, and 6 as representatives of each orbit, respectively, 
forming the cosets Ntty, Ntits, Ntite, and Ntitg. We must determine where 


each coset representative belongs to which double coset: 


Ntyty =?, Ntits =?, Ntytg =?, andNt tg =? 


Now, Ntiti € [1], since Ntjt; = Nt? = Ne € N. Therefore, one symmetric 
generator goes back [x]. Next, Ntits = Ntit1 since t; = ts which belongs to N So, 


one symmetric generator goes back to [*]. Now, Nt tz extends three symmetric 
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generators to [12]. For Ntitg = Ntytg since tg = tg, hence, three symmetric 
generators extend to [12]. 


Third Double Coset Ntit2N = [12] 


Now, Ntit2N is a new coset. The point stabilizer N!? = {e}. So, N“?) 
> NY = < (1,5)(2,6)(3, 4)(7,8) >. Lemma 12 ~ 56. Therefore, the number of 
single cosets in the double coset Nt toN is ical = oe = 12 and the orbits of 


N(2) on X are: 


{1,5}, {2, 6}, {3, 4}, and{7, 8}. 


Selecting 1, 2, 3 and 7 as representatives of each orbit, respectively, form- 
ing the cosets Ntitgt,, Ntytote, Ntitet3, and Nt tat7. We must determine where 


each coset representative belongs to which double coset: 


Ntytoty =i Nt toate =, Ntytots =, and Nt tat7 =1 


Now, Ntiteti = Ntit2 € [12]. Therefore, two symmetric generators loop to [12]. 
Next, Ntitot2 = Nt it? = Nt, € [1] So, two symmetric generators go back to [1]. 
Now, Ntitat3 extends two symmetric generators to [123]. For Ntitet7 = Ntitets 
since t3 = t7, hence,two symmetric generators extend to [123]. 


Fourth Double Coset Nttgt3N = [123] 


Now, Ntitot3N is a new coset. The point stabilizer N!?3 = {e}. So, 
N(@23) > N123 — fe}. Therefore, the number of single cosets in the double coset 


Ntytot3N is oy = 24 = 24 and the orbits of N@23) on X are: 


{1}, {2}, {3}, {4}, 15h, {6}, {7}, and {8}. 


Selecting 1, 2, 3, 4, 5, 6, 7 and 8 as representatives of each orbit, respec- 
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tively, forming the cosets Ntjtgt3t;, Ntytat3te, Ntitet3t3, Ntitotsta, Ntitotsts, 
Ntytat3te, Ntitet3t7 and Ntytotg3tg. We must determine where each coset repre- 
sentative belongs to which double coset: 

Now, Ntitgtgt, € [1231]. Therefore, one symmetric generator extends to 
[1231]. Next, Ntitetst2 = Ntitet3 € [123]. So, one symmetric generator loops to 
[123]. Now, Ntytot3t3 = Nt,tet? = Nt,te € [12] so, one symmetric generator goes 
back to [12] Ntitetgt, € [1234], so one symmetric generator extends to [1234]. For 
Ntitgtsts = Nttatst; since t; = ts so one symmetric generator goes to [1231]. 
Ntitgtg3tg = Ntitgt3 € [123] so one generator loops. Also, Ntitatst7 = Ntytatsts 
= Ntytot? = Ntyty € [12] and one generator goes back to [12]. Lastly, Nt tot3tg 
= Ntjtgtgt, € [1234] so one generator extends to [1234]. 


Fifth Double Coset Ntitgt3t4N = [1234] 


Now, Ntytot3taN is a new coset. The point stabilizer N!*34 = fe}. So, 
N(234) > 1284 — < (1,8,2)(4,6,5) >. Therefore, the number of single cosets in 


WoT = 2 = 8 and the orbits of N(?34) on X 


the double coset Ntytgt3t4N is 
are: 


{3}, {7}, {1, 8, 2}, and{4, 6, 5}. 


Selecting 3, 7, 8, and 4 as representatives of each orbit, respectively, 
forming the cosets Ntytot3t4t3, Nt tatgtat7, Ntitotstatg, and Nt itotst4t4. We must 
determine where each coset representative belongs to which double coset: 

Now, Ntjtatstatz € [1234], so, one symmetric generator loops to [1234]. 
Next, Ntitotstat7 = Ntitetzat3 € [1234]. So, one symmetric generator loops to 
[1234]. Now, Ntitetstatg = Ntytetgtata = Ntytot3t? = Ntitat3 € [123] so, three 


symmetric generator go back to [123]. Lastly, Ntitatstqt4 =Ntitet3 € [123], so 
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three symmetric generators go back to [123]. 


Sixth Double Coset Ntjtgt3t;N = [1231] 


Now, Ntitgt3tiN is a new coset. The point stabilizer N17! = {e}. So, 
N(@231) > 1231 — < (1,4,3,6)(2,5,8,7) >. Therefore, the number of single cosets 


in the double coset Nt tat3tiN is 4 = 6 and the orbits of N@23)) on 


IN| 
[N23] 
X are: 


{1, 4,3, 6}, and{2, 5,8, 7}. 


Selecting 1, and 5 as representatives of each orbit, respectively, forming 
the cosets Ntitgt3tit;, and Nt totst;t5. We must determine where each coset 
representative belongs to which double coset: 

Now, Ntytot3tyt, = Ntytot3t? = Nt,tet3 € [123], so, four symmetric gen- 
erators go back to [123]. Next, Ntitot3tits = Ntitot3 it, since t; = ts . Therefore, 
Ntitgt3t? = Ntyt2t3 € [123]. So, four symmetric generators go back to [123]. A 


cayley diagram for this manual double coset enuermation is shown below. 


[1234] 


1234 ~ 8136 ~ 2835 


Figure 4.3: Cayley Diagram of L(2,11) over N 
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4.4 Construction of 2’) Mo. 


Consider the progenitor 2) M2 &< 2, y,t|x®, y4, cy~727y22, 


2 1 1 1 1 1 


wy ta? (y ta *)*(ya)?ya", 


ory ey cay ae ee ya 


( 1 cal 1,2 1 


yee ye yy me 


ye (tye youn yt) (2 Qa) ye?) Gaye ye yey. a) >, 
where N =< x,y >& A7 and the action on the symmetric generators are given by 
with x ~ (1,3, 7,15, 29, 45) (2, 5, 11, 22, 42, 66)(4, 9, 18, 34, 26, 46) (6, 13, 25)(8, 16, 31, 52, 39, 
61) (10, 20, 38, 58, 78, 75)(12, 24, 14, 27, 47, 53)(17, 33, 48, 32, 54, 73) (19, 36, 30, 50, 63, 85) (21, 
40, 62, 83, 23, 43) (28, 41, 64, 87, 69, 90)(35, 57, 76, 97, 80, 100) (37, 59, 79, 70, 92, 86) (44, 67, 88, 
94,91, 49) (51, 71, 65, 77, 98, 104) (55, 74, 56, 72, 95, 84) (60, 81, 101)(68, 89, 82) (93, 103, 99, 102, 
105, 96) and y ~ (1, 2, 4, 8)(3, 6, 12, 23) (5, 10, 19, 35)(7, 14, 26, 45) (9, 17, 32, 53)(11, 21, 39, 13) 
(15, 28, 47, 69) (16, 30, 49, 66) (18, 27, 29, 48) (20, 37, 58, 77) (22, 41, 63, 84) (24, 44, 54, 36) (25, 43, 
62, 82)(31, 51, 42, 65) (33, 55, 34, 56) (38, 60, 80, 81) (40, 46, 68, 73) (50, 70, 91, 59) (52, 72, 94, 87) 
(57, 75)(61, 76, 67, 78) (64, 86)(71, 93, 79, 99)(74, 96, 90, 102)(83, 88, 89, 85) (92, 100, 104, 97) (95, 
98)(101, 103). and ty, and 2*@9) : Az is factored by the relation ((yx)2yx2y batty ye )3, 
The relation is expanded as shown in Chapter 4.1: 

let xyx? yx? = (1,62, 92)(2, 60, 31)(3, 41, 19) (4, 46, 77) (5, 82, 72)(6, 104, 34) (7, 79, 
33) (8, 56, 11)(9, 26, 25) (10, 96, 76) (12, 89, 66) (13, 18, 71)(14, 22, 74) (15, 63, 43) (16, 61, 53) (17, 54, 
49) (20, 105, 36) (21, 32, 37) (23, 29, 73) (24, 52, 27) (28, 97, 57) (30, 90, 40) (35, 70, 38) (39, 81, 95) (42, 
55, 101)(44, 50, 99) (45, 83, 87) (47, 84, 68) (48, 94, 67) (51, 98, 65) (58, 85, 91)(59, 103, 78) (64, 100, 
69) (75, 88, 93) (80, 102, 86) = a and (yx)*yr~7y~!x = (1, 80, 35, 74, 23) (2, 104, 56, 48, 97) (3, 93, 55, 
71, 8)(4, 49, 67, 50, 44) (5, 73, 33, 38, 102)(6, 101, 9, 28, 30)(7, 16, 51, 84, 76) (10, 32, 22, 98, 52) (11, 40, 
20, 39, 77) (12, 14, 79, 89, 59) (13, 63, 90, 91, 85) (15, 17, 95, 99, 105) (18, 60, 25, 36, 94) (19, 64, 69, 34, 
87) (21, 103, 78, 61, 29) (24, 86, 68, 82, 92)(26, 88, 41, 46, 81) (27, 53, 37, 47, 70) (31, 58, 57, 54, 45) (42, 
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100, 75, 83, 43) (62, 72, 65, 66, 96) = b. Now, 
((ya)2 yx 2y7 baetyr ve? )3 
= (tf)? 
=> (bte2)? 
— > b tego” ten teo 


=> (1,74, 80, 23, 35)(2, 48, 104, 97, 56)(3, 71, 93, 8, 55)(4, 50, 49, 44, 67) (5, 38, 73, 102, 33) 
(6, 28, 101, 30, 9)(7, 84, 16, 76, 51)(10, 98, 32, 52, 22)(11, 39, 40, 77, 20) (12, 89, 14, 59, 79) (13, 
91, 63, 85, 90) (15, 99, 17, 105, 95)(18, 36, 60, 94, 25) (19, 34, 64, 87, 69)(21, 61, 103, 29, 78) (24, 
82, 86, 92, 68) (26, 46, 88, 81, 41) (27, 47, 53, 70, 37)(31, 54, 58, 45, 57) (42, 83, 100, 43, 75) (62, 
66, 72, 96, 65)tsstsote: = 1 


=> (1,74, 80, 23, 35)(2, 48, 104, 97, 56)(3, 71, 93, 8, 55)(4, 50, 49, 44, 67) (5, 38, 73, 102, 33) (6, 
28, 101, 30, 9)(7, 84, 16, 76, 51) (10, 98, 32, 52, 22)(11, 39, 40, 77, 20) (12, 89, 14, 59, 79)(13, 91, 63, 
85, 90)(15, 99, 17, 105, 95)(18, 36, 60, 94, 25)(19, 34, 64, 87, 69) (21, 61, 103, 29, 78) (24, 82, 86, 92, 
68)(26, 46, 88, 81, 41) (27, 47, 53, 70, 37)(31, 54, 58, 45, 57)(42, 83, 100, 43, 75) (62, 66, 72, 


96, 65)t3stgo = t62 (4.10) 


=> Nt35tg9 = Ntgo. 
Which gives the finite homomorphic image 


G ~ Q*105. A, 
t35tgo0=te2 * 
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Now we can proceed our manual double coset enumeration of 2° M22 over 
Av. 


First Double Coset NeN = [x] 


Let NeN be denoted by [x]. NeN = {N(e)"|n € N} = {N}. Now, 
N is the only single coset contained in the double coset [*] and is transitive on 


X = {1,2,3,4,5,6,..., 103, 104, 105} so it has the single orbit: 


O{1, 2,3, 4,5, 6, ..., 103, 104, 105}. 


We select 1 to be the representative from the orbit, so Nt; € Nt;N = 
{Nti|n € N} = {Nt1, Nto, Nt3, Nts, Nts, Nt, ..., Nt105}, forming the new dou- 
ble coset, [1], which means that all 105 symmetric generators move forward to 


Nt,N since they share the same orbit. 


Second Double Coset Nt, N = [1] 


Now, Nt ,N is a new coset and the number of single cosets is Te The 


Te) = 2 = 105 and the 


number of single cosets in the double coset Nt,N is 


orbits of N@) on X are: 


O{1}, O{21, 33}, O{5, 20, 63, 59, 55, 26}, O{2, 74, 93, 97, 87, 86, 39, 70, 49, 25, 
9,61}, O{3, 67, 31, 95, 45, 19, 48, 43, 42, 17, 40, 90}, Of4, 103, 73, 85, 98, 28, 52, 89, 32, 75, 
72, 37}, O{6, 83, 96, 41, 99, 91, 60, 14, 35, 68, 8, 77}, O{7, 105, 80, 38, 16, 79, 88, 65, 69, 23, 
51, 44, 29, 36, 92, 47, 66, 24, 13, 22, 84, 57, 34, 62}, andO{10, 46, 81, 53, 54, 76, 30, 12, 18, 
104, 50, 56, 27, 58, 64, 101, 82, 78, 100, 102, 15, 94, 11, 71}. 
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Selecting 1, 21, 5, 2, 3, 4, 6, 7, and 10 as representatives of each orbit, respectively, 
forming the cosets Ntyt,, Ntito1, Ntits, Ntito, Nt t3, Ntita, Ntiteg, Ntit7, and 
Ntitio. We must determine where each coset representative belongs to which 
double coset: 

Now, Ntiti = N € [x]. Therefore, one symmetric generator goes back 
to [*]. Next, Ntite; and Ntit, € Nt,N = [1] so, two and twelve symmetric gen- 
erators loop to [1], respectively. Also, Ntits and Ntit7 € NtitsN = [15] so, six 
and twenty-four symmetric generators extend to [15], respectively. Also, Ntyte, 


Ntyt3, and Nt,tg € [12] so twelve symmetric generators extend to [12], respectively. 


Third Double Coset Ntit2N = [12] 


Now, Nt it2N is a new coset. The number of single cosets in the double 
coset Nt toN is oy] = ae = 140 and the orbits of N@?) on X are: 

O{19, 67,90}, O{37, 92, 79}, Of{1, 24, 47, 89, 105, 21, 75, 57,33}, O{2, 36, 85, 
34, 38, 15, 84, 72, 11}, O{3, 42, 50, 46, 9, 10, 78, 74, 45}, O{4, 52, 22, 54, 56, 80, 39, 69, 88}, 
O{7, 51, 70, 53, 12,97, 58,71, 73}, O{8, 83, 13, 44, 28, 66, 16, 103, 55}, O{30, 81, 60, 49, 
101, 41, 63, 87, 94}, O{5, 26, 17, 61, 76, 31, 40, 102, 43, 25, 6, 18, 64, 91, 96, 95, 48, 35}, and 


O{14, 99, 93, 32, 23, 100, 104, 65, 86, 98, 77, 62, 29, 20, 59, 27, 82, 68}. 


Selecting 19, 37, 1, 2, 3, 4, 7, 8, 30, 5, and 14 as representatives of each or- 
bit, respectively, forming the cosets Ntytoti9, Ntitat37, Ntitet1, Ntytate, Ntytots, 
Ntytota, Ntitot7, Ntitatg, Ntitetso, Ntitets, and Nt tgtj4. We must determine 
where each coset representative belongs to which double coset: 


Now, Ntytotig and Nt tot37; Nt tats and Nt tate; Ntytats and Ntytoti4 
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€ [12]. Therefore, three, nine, and eight-teen symmetric generators loop to [12], 
respectively. Next, Ntitot; and Ntitat, € Nt,t;N so, nine symmetric generators 
extend to [15], respectively. Also, Ntitate, Ntitet7, and Ntitat30 € Nt: N so, nine 


symmetric generators go back to [1], respectively. 


Fourth Double Coset Ntit;N = [15] 


Now, Nt tsN is a new coset. The number of single cosets in the double 
coset NtitsN is was] a 2 = 105 and the orbits of N@® on X are: 

O{59}, O{70, 86}, O{1, 26, 20, 55, 63, 5}, O{2, 25, 93, 39, 61, 21, 74, 87, 49, 9, 
97, 33}, O{3, 17, 47, 27, 10, 80, 51, 92,77, 102, 82, 83}, Of{4, 75, 29, 58, 18, 7, 22, 66, 19, 30, 
95, 56, O{ 28, 85, 64, 44, 88, 50, 81, 101, 60, 69, 36, 91}, O{6, 8, 41, 62, 72, 105, 42, 13, 23, 52, 
67, 99, 84, 16, 94, 90, 11, 31, 73, 32, 46, 34, 100, 57}, andO{12, 78, 53, 45, 54, 38, 35, 24, 


48, 15, 14, 76, 43, 40, 89, 68, 103, 96, 104, 71, 37, 79, 98, 65}. 


Selecting 59, 70, 5, 2, 3, 4, 28, 6, and 12 as representatives of each orbit, respec- 
tively, forming the cosets Ntitsts9, Ntitst7o, Ntitsts, Ntitste, Ntitst3, Ntitsta, 
Ntyt5teg, Ntitstg, and Ntyts5tj2. We must determine where each coset representa- 
tive belongs to which double coset: 

Now, Ntitsts9 € [1 5 59], so one symmetric generator extends to [1 5 
59], respectively. Next, Ntitst79, Ntitst3 and NtytsteN € Ntjts, so two, twelve, 
and twenty-four symmetric generators loop to [15], respectively. Also, Ntitsts and 
Ntytsti2 € Nt,N so, six and twenty-four symmetric generators go back to [1], 
respectively. Also, Ntytste,Ntytst, and Ntytsteg € Nt,t2N so, twelve symmetric 


generators extend to [12], respectively. 
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Fifth Double Coset Ntitsts9N = [1 5 59] 


Now, Ntitsts9N is a new coset. The number of single cosets in the double 
coset Ntytsts9N is wassny = as = | and the orbits of N59) on X are: 

O{1}, O{5}, O{59}, O{3, 17}, Of4, 75}, O{19, 95}, O{21, 33}, O{ 28, 85}, 
O{60, 91}, O{61, 74}, O{ 70, 86}, O{77, 83}, O{2, 25, 93, 49}, O{6, 8, 41, 99}, O{7, 
66, 22, 29}, O{9, 39, 87, 97}, O{10, 82, 102, 27}, O{11, 46, 100, 94}, O{12, 78, 53, 76}, 
O{13, 57, 34, 105}, O{14, 96, 68, 35}, O{15, 71, 104, 54}, O{16, 23, 62, 84}, O{18, 56, 
30, 58}, O{20, 63, 55, 26}, O{24, 65, 79, 38}, O{31, 67, 42, 90}, O{32, 52, 72, 73}, 
O{36, 88, 44, 69}, O{37, 103, 89, 98}, O{40, 48, 45, 43}, O{47, 51, 92, 80}, and 
O{50, 101, 81, 64}. 


Selecting 1, 5, 59, 3, 4, 19, 21, 28, 60, 61, 70, 77, 2, 6, 7, 9, 10, 11, 12, 13, 
14, 15, 16, 18, 20, 24, 31, 32, 36, 37, 40, 47, and 50 as representatives of each or- 
bit, respectively, forming the cosets Ntytsts9t,, Ntytstsots, Ntytstsots9, Ntitstsots, 
Ntitstsgta, Ntitstsoti9, Ntitstsote1, Ntitstsotes, Ntitstsoteo, Ntitstsote1, Ntitstsot7o, 
Ntitstsot77, Ntitstsote, Ntitstsote, Ntitstsot7, Ntitstsoto, Ntitstsotio, Ntitstsoti, 
Ntitstsoti2, Ntitstsotis, Ntitstsotia, Ntitstsotis, Ntitstsotie, Ntitstsotis, Ntitstsotao, 
Ntyts5t5gtoa, Ntytsts59t31, Ntitstsotz2, Ntitstsot36, Ntitstsots7, Ntitstsotao,Ntitstsota7 
and Ntyt5t59t59. We must determine where each coset representative belongs to 
which double coset: 

Now, Ntitstsoti, Ntitstsots, Ntitstsots9; Ntitstsots, Ntitstsota, Ntitstsotio, 
Ntitstsgte1, Ntitstsotes, Ntitstsoteo, Ntitstsote1, Ntitstsot7o, Ntitstsot77; Ntitstsota, 


Ntytstsgte, Ntitstsot7, Ntitstsoto, Ntitstsotio, Ntitstsoti1, Ntitstsoti2, Ntitstsotis, 
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Ntyt5tsgtia, Ntitstsotis, Ntitstsotie, Ntitstsotis, Ntitstsotao, Ntitstsote,, Ntitstsotsi, 
Ntyt5tsgt32, Ntytsts9t36, Ntitstsgt37, Ntitstsgtao, Ntytstsgta7, Ntitstsotso € [1 5], 
so one, two, and four symmetric generators go back to [1 5], respectively. A Cayley 


Diagram for this manual double coset enuermation is shown below. 


34+3+9+9+18+18 


12+12+12 9+9+9 


[15] [1559] 


Figure 4.4: Cayley Diagram of 2’) M2 over Az 


87 
4.5 Construction of Mo. over Az 


Consider the progenitor Mg: =< 2, y,t|2°, y*, ry~2a7y?2, 


2 1 1 1 1 1 


wy ta, (y ta )(ya)?ya", 


ory ey cay a ee ys tag 


4 1 i (bya yaya Tye), (2" a) ye *) (ayeye ‘yay *2)>, 


(yt ?)?yhatyay har yar 
where N =< x,y >& A7 and the action on the symmetric generators are given by 
with x ~ (1,3, 7,15, 29, 45) (2, 5, 11, 22, 42, 66)(4, 9, 18, 34, 26, 46) (6, 13, 25)(8, 16, 31, 52, 39, 
61) (10, 20, 38, 58, 78, 75)(12, 24, 14, 27, 47, 53)(17, 33, 48, 32, 54, 73) (19, 36, 30, 50, 63, 85) (21, 
40, 62, 83, 23, 43) (28, 41, 64, 87, 69, 90)(35, 57, 76, 97, 80, 100) (37, 59, 79, 70, 92, 86) (44, 67, 88, 
94,91, 49) (51, 71, 65, 77, 98, 104) (55, 74, 56, 72, 95, 84) (60, 81, 101)(68, 89, 82) (93, 103, 99, 102, 
105, 96) and y ~ (1, 2, 4, 8)(3, 6, 12, 23) (5, 10, 19, 35)(7, 14, 26, 45)(9, 17, 32, 53)(11, 21, 39, 13) 
(15, 28, 47, 69) (16, 30, 49, 66) (18, 27, 29, 48) (20, 37, 58, 77) (22, 41, 63, 84) (24, 44, 54, 36) (25, 43, 
62, 82)(31, 51, 42, 65) (33, 55, 34, 56) (38, 60, 80, 81) (40, 46, 68, 73) (50, 70, 91, 59) (52, 72, 94, 87) 
(57, 75)(61, 76, 67, 78) (64, 86)(71, 93, 79, 99)(74, 96, 90, 102)(83, 88, 89, 85) (92, 100, 104, 97) (95, 
98)(101, 103). and t;, and 2*@9) : Az is factored by the relations ((yx)2yx-2y-hatrye ye )3 
and «~!ya-ltyryryrytatate—ly-ttyt. For the calculation of the former relation 
please refer to Chapter 4 (4.10). The explanation for the latter relation can be be 
accomplished by similar fashion. 

Now we can proceed our manual double coset enumeration of M22 over 
Ar. 

First Double Coset NeN = [x] 


Let NeN be denoted by [x]. NeN = {N(e)"|n € N} = {N}. Now, 
N is the only single coset contained in the double coset [*] and is transitive on 


X = {1,2,3,4,5,6,..., 103, 104, 105} so it has the single orbit: 
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O{1, 2,3, 4,5, 6, ..., 103, 104, 105}. 


We select 1 to be the representative from the orbit, so Nt; € Nt,N = 
{Nti|n © N} = {Nti, Nto, Nt3, Nts, Nts, Nt, .... Nt105}, forming the new dou- 
ble coset, [1], which means that all 105 symmetric generators extend to NtiN 


since they share the same orbit. 


Second Double Coset Nt, N = [1] 


N| 


Now, Nt ,N is a new coset and the number of single cosets is NO” The 
number of single cosets in the double coset Nt,N is Woy = 2 = 105 and the 


orbits of N@) on X are: 


O{1}, O{21, 33}, O{5, 20, 55, 59, 63, 26}, O{2, 49, 39, 25, 97, 87, 9, 74, 70, 61, 
86, 93}, O{3, 67, 40, 90, 95, 17, 19, 31, 45, 42, 43, 48}, Of4, 72, 103, 32, 28, 75, 85, 37, 89, 
52, 98, 73}, O{6, 14, 35, 68, 99, 41, 8, 77, 91, 83, 96, 60}, Of7, 92, 62, 47, 65, 29, 38, 79, 24, 
34, 44, 13, 23, 51, 84, 16, 69, 88, 80, 22, 66, 57, 105, 36}, andO{ 10, 64, 71, 101, 12, 27, 53, 
76, 78, 11,56, 100, 104, 50, 15, 54, 18, 30, 81, 102, 82, 94, 46, 58}. 


Selecting 1, 21, 5, 2, 3, 4, 6, 7, and 10 as representatives of each orbit, respectively, 
forming the cosets Nt t,, Ntyto1, Ntits, Ntite, Ntits, Ntita, Ntite, Nt t7, and 
Nttig. We must determine where each coset representative belongs to which 
double coset: 

Now, Ntit; = N € [x]. Therefore, one symmetric generator goes back 


to Pele Next, Ntito,, Ntjts, Ntita, Ntit7, and Ntytig € Nt) N = (1] so, two, six, 
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twelve, twenty-four, and twenty-four symmetric generators loop to [1], respectively. 
Also, Ntit2, Ntits3, and Ntitg € Ntit2N = [12] so, twelve symmetric generators 


extend to [12], respectively. 


Third Double Coset Ntit2N = [12] 


Now, Ntjt2N is a new coset. The number of single cosets in the double 


|N | 
oy 


O{19, 67, 92, 37, 79, 90}, O{8, 83, 13, 44, 28, 66, 16, 55, 103}, O{1, 24, 41, 87, 


coset NtytoN is 


= 332° — 70 and the orbits of N(?) on X are: 


105, 101, 60, 81, 75, 57, 49, 30, 21, 89, 94, 63, 47, 33}, O{2, 36, 56, 69, 38, 80, 54, 4, 84, 
72, 22, 52, 15, 34, 88, 39, 85, 11}, O{3, 42, 50, 46, 12, 97, 58, 73, 10, 78, 70, 51, 71, 74, 53, 
7, 45,9}, O{5, 26, 17, 61, 77, 14, 32, 104, 43, 25, 62, 82, 68, 23, 18, 48, 99, 93, 95, 64, 98, 
86, 96, 102, 27, 29, 6, 40, 65, 59, 76, 35, 100, 20, 31, 91}. 


Selecting 19, 8, 1, 2, 3,and 5 as representatives of each orbit, respectively, forming 
the cosets Nt tati9, Ntitats, Ntytet;, Ntitote, Ntitetz, and Nt tats. We must 
determine where each coset representative belongs to which double coset: 

Now, Ntitotig, Ntitatg, Ntitets and Ntytots € [12]. Therefore, six, nine, 
and thirty-six symmetric generators loop to [12], respectively. Next, Ntitet, 
Ntytete, and Ntitetz3 € Nt,N so, eight-teen symmetric generators go back to 
[1], respectively. A cayley diagram for this manual double coset enuermation is 


shown below. 
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246412424424 64+9+36 


12412412 


Figure 4.5: Cayley Diagram of M22 over A7 
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Chapter 5 


Double Coset Enumeration 


over a Maximal Subgroup 


5.1 Construction of M2, : 2? over PGL(2,9) : 2 and 
PGL(2,9) 


2*10: PGL(2,9) 
zaxyt)®,(zt)§, (it? )?=ytz° 


Begin with a progenitor G = ( 


A symmetric presentation of the progenitor M2, : 2? is 


2 1 2 


< x, Y; zy ile, y®, eB (yz) ’ 


(at) tat te tee) (eye ge ty), e, 


(t,y-*azy*), (t,y-*ay™*) >, 
where N = PGL(2,9) is of order 720, with 
x ~ (1,2,10)(3,4,5)(6,7,8), y ~ (1,7,3,4,2,5,6,8), z ~ (1,2)(4,7)(5,8)(9,10), and t ~ 


tis 
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We prove the above progenitor factored by (zayt)®, (zt)®, and (tt”)? = 


y‘z is isomorphic to Mg, : 2?. We expand our relations as follows: 


(1) Relation (zayt)®=1 

(zayt)°=1 

=> [(1, 2)(4, 7)(5, 8)(9, 10) * (1, 2, 10)(3, 4, 5)(6, 7, 8) * (1, 7, 3, 4, 2, 5, 6, 8) « t1]® 
—> [(1, 10,9, 7, 6,3, 2,5, 8,4) « t]® 

(mt1)® (we let (1, 10, 9, 7, 6, 3, 2, 5, 8, 4)= 7) 

tty arty at at ati at 

mim tyrtyrtyrty ati rty 


mean ty "ty arty aty rt at} 


= 2 
reat tee tymtyrty ty 
3 72 
mig lty™ th tty atyrty 

- 4 eee 
moan tty” ty” t tr tyrty 


5 4 3 2 
nty™ t7 ti" t17 t1"ty 


fldbeudddd 


(1, 2, 9, 8, 6)(3, 10, 5, 7, 4)tstet7toteioti=1. 


(2) Relation (zt)®=1 
=> ((1,2)(4, 7)(5, 8)(9, 10) * t1)8 
=> (nt)® (we let (1,2)(4,7)(5,8)(9,10)= 7) 


=> mthyrty arty aty arty arty arty at, 


7 6 5 4 3 2 
— mty™ ty" ty? t" 7 t17 ty7ty 


=> etot tot tot totj=1. 
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(3) Relation (t * t”)? = y* * z 

(t * t”)? 

=> tet «txt 

— > t« t(1, 2, 10)(3, 4, 5)(6, 7,8) *t * t41, 2, 10)(3, 4, 5)(6, 7, 8) 


=> tytotite=y* * Z. 


(4) H Relation z* y*txaxtxyxtea l«txy*t =Id(H) 
—> zy(y) *taxtyxta «xt 
zy(ya !) * ta * ty *t? ‘Ya xt 


( 

( 
=> zy(y(ya!)) * tar OY) EY Yt 
=> zy(yx(aly)) « t2Ye'Y) YY) ete we LY et 
( 


==> zy yee 1y)) * totgtigt7t, = 1. 
Now we proceed with the Double Coset Enumeration (DCE) of G over H 


and N. 
First Double Coset HeN = [x] 


We let HeN be denoted by [x]. HeN = {H(e)"| n € N} = {H}. H is the 
only single coset contained in the double coset [*]. The coset representative of the 
double coset [x] is H. The coset stabilizer in H of the coset H is < H >. Therefore, 


the number of single cosets of H is ra = EY = 1. 


H is transitive on X = {1,2,3,4,5,6,7,8,9,10}, so it has the single orbit 
{1,2,3,4,5,6,7,8,9,10}. Select a t; representative from the single orbit, say 1, and 


form the new double coset, [1]. 
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Second Double Coset Ht,N = [1] 


At,N = {Hti,Hte,Ht3,Ht4,Hts, Ate, Ht7, Hts,Hto, Htio}, with Ht, € 
[1] which means that all 10 symmetric generators move forward to Ht, N since they 


share the same orbit. The number of single cosets contained in this double coset is 


given by Rep where N“) is the coset stabilizer of the coset Ht; which is greater 


than or equal to the point stabilizer of 1 in N, denoted by Ht; > N?. NO > N! 
= <(2,7)(3,9)(4,6)(5,10), (2,10,3,6,7,5,9,4), (2,3,4,6,10,8,7,5), (2,7,10,4)(3,5,8,6)>. 


Therefore, the number of single cosets in the double coset Ht,N is 


IN| _ 720 _ 
FS) amas as 


The orbits of N on X are {1} and {2,5,6,4,7,9,8,3,10}. Now, selecting 
a t; representative from each orbit, say 1 and 2, respectively, forming the cosets 
Atyt, and Ht,t2. We must determine where each coset representative belongs to 
which double coset: 


Atit; =? and Ht\te =? 
Now, Htiti € [x], since Htit, = He = H. Therefore, one symmetric gen- 
erator goes back to [*]. Now, Ht,t2 forms a new double coset so nine symmetric 


generators move forward to [12]. 


Third Double Coset Ht,t2N = [12] 


The number of single cosets contained in this double coset is given by 


Nea where N(2) is the coset stabilizer of the coset Ht,t2 which is greater 
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than or equal to the point stabilizer of 12 in N, denoted by N!?; N!? = < 


(3, 4, 9, 8,6, 5, 10, 7), (3, 9, 6, 10)(4, 8,5, 7) >. Therefore, the number of single cosets 


in the double coset HtitoN is oy = a = 45. 

The orbits of N“?) on X are {1},{2}, and {3,8,10,4,6,7,9,5}. Now, se- 
lecting a ¢; representative from each orbit, say 1, 2, and 3, respectively, forming 
the cosets Ht,tot,, Htitet2, and Httot3. We must determine where each coset 
representative belongs to which double coset: 


Atytot, =?, Htytetg =?, and Htitatz =? 


Htytot2 = Ht, € [1], since Htytote = Ht,t? = Ht,. Therefore, one sym- 


metric generator goes back to [1]. 


Proof of Htitgt; = Ht, € [1].By relation (3), we have t)tgt; = tg. Con- 
jugating by H on the left, we obtain Ht,tet; = Htg. Now, conjugating Ht, by the 


(1,2,10)(3,4,5)(6,7,8) 
al 


permutation x, H = Htz € Ht,N = [1]. Therefore, one symmet- 


ric generator goes back to [1]. 


Now, to prove Httgt3 = Ht tz € [12] we use our H relation, 
z*y(x*y(a—! * y))tetgtiot7t) = Id(H) 
=> zxy(xxy(a! *y))tatgtio = trty 
= Hzxy(x*y(x7! * y))totgtio = Ht7t, (since € H) 
=> Htotgtio = Ht7t;. Now, conjugating by (1, 10,3,7,9,4,8,2), we have 
= 


Atytot3 = Htiotg. 
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But, H(t,t2)10729,56.43:8) — Htitg € [12]. Therefore, eight symmetric genera- 


tors loop back to [1, 2]. 


Atl 


Figure 5.1: Cayley diagram of M2; : 2? over PGL(2,9) : 2 and PGL(2,9) 
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Chapter 6 


Wreath Products 


6.1 Wreath Products 


Given two groups, H and K. The wreath product of H by K, denoted by 
H 2? K is a semi-direct product composed of as many copies of H as the number of 
letters on which the permutation group K acts on. We define the wreath product 
below. 
Definition 5.1.1. (Wreath Product) Let X and Y be non-empty sets. Let H be 
a permutation group on X and K on Y. Let Z = X x Y, then the wreath product 
is a semi-direct product of X and Y. We define a permutation group on Z such 
that we let y € H, and define a permutation of y(y) of Z by 


ry) = (zy) (eyy) fy =y 


(ry) (ay), YAN 
Also, fork € K, define k* (x,y) = (x, (y)k); such that B = X,€ YH(y) is a direct 


product of of the group generated by the y’s. Thus, G = B:k* is called a wreath 
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product of H and K, where H is normal subgroup, denoted by H 2? K. [Rot95] 
We look at a few examples to help us better understand how wreath products are 


generated. 


6.1.1 Example: Z; ) Zs 


Let H = < (1,2,3,4,5) > = Zs and K = < (6,7,8,9,10) > = Zs be permutation 
groups on X = { 1, 2,3, 4,5 } and Y = {6, 7, 8, 9, 10}, respectively. We construct, 


by hand, the permutation generators of the wreath product, H 2? K. 


Let Z = X x Y = { (1,6), (1,7), (1,8), (1,9), (1,10), (2,6), (2,7), (2,8), 
(2,9), (2,10), (3,6), (3,7), (3,8), (3,9), (3,10), (4,6), (4,7), (4,8), (4,9), (4,10), (5,6), 
(5,7), (5,8), (5,9), (5,10),}. We consider the labeling for the elements of Z: 
By the wreath product definition, we let 7, = (1,2,3,4,5) € H and y € Y. So, 
compute 71(6), 71(7), ¥1(8), y1(9), y1(10). We compute the action of y,;=(1,2,3,4,5) 
on K. Note, 7 will only change elements which contain 1, 2, 3, 4, and 5 in the x- 


coordinate and 6 in the y-coordinate. 


Table 6.1: Labeling of Z 


Labeling | Element 
11 (1,6) 
12 (1,7) 
13 (1,8) 
14 (1,9) 
15 (1,10) 
16 (2,6) 
17 (2,7) 
18 (2,8) 
19 (2,9) 
20 (2,10) 
21 (3,6) 
22 (3,7) 
23 (3,8) 
24 (3,9) 
25 (3,10) 
26 (4,6) 
27 (4,7) 
28 (4,8) 
29 (4,9) 
30 (4,10) 
31 (5,6) 
32 (5,7) 
33 (5,8) 
34 (5,9) 
35 (5,10) 
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From Table 2, 71(6) = ((1,6), (2,6), (3,6), (4,6), (5,6))) = (11,16, 21, 26, 


31). Similarly, we obtain +1(7) = (12,17,22, 27,32), 71(8) = (13,18,23,28,33), 71(9) 


= (14,19,24,29,34), and 7(10) = (15,20,25,30,35). 


We have formed B = H(6) x H(7) x H(8) x H(9) x H(10), and obtain 


five copies of Z5. This can be be expressed as B = < (6) > x < (7) > x 
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Table 6.2: Labeling of 71 (6) 


Labeling Element Element Labeling 
11 (1,6) — (7(1),6) — (2,6) 16 
12 (1,7) — (9(1),7) — (1,7) 12 
13 (1,8) — (7(1),8) — (1,8) 13 
14 (1,9) — (97(1),9) — (1,9) 14 
15 (1,10) — (y(1),10) — ~ (1,10) 15 
16 (2,6) — (7(2),6) — (3,6) 21 
17 (2,7) — (97(2),7) — (250) 17 
18 (2,8) — (7(2),8) — (2,8) 18 
19 (2,9) — (7(2),9) —- (2,9) 19 
20 (2,10) —>+ ((2),10) —> ~ (2,10) 20 
21 (3,6) — (7(3),6) — (4,6) 26 
22 (3,7) —  (7(3),7) — (3,7) 22 
23 (3,8) —  (7(3),8) — (3,8) 23 
24 (3,9) —  (7(3),9) — (3,9) 24 
25 (3,10) —> (9(3),10) — — (8,10) 25 
26 (4,6) — (7(4),6) — (5,6) 31 
27 (4,7) — (7(4),7) — (4,7) 27 
28 (4,8) — (7(4),8) — (4,8) 28 
29 (4,9) — (7(4),9) — (4,9) 29 
30 (4,10) —> (9(4),10) —> (4,10) 30 
31 (5,6) — (7(5),6) — (1,6) 11 
32 (5,7) —  (7(5),7) — (5,7) 32 
33 (5,8) — (7(5),8) —- (5,8) 33 
34 (5,9) — (7(5),9) — (5,9) 34 
35 (5,10) —>+ (9(5),10) —> — (5,10) 35 


< 1(8) > x < m(9) > x < (10) >. We label each as a = (11,16, 21, 26, 
31), b = (12,17,22, 27,32), ¢ = (13,18,23,28,33), d = (14,19,24,29,34), and e = 


(15;20,25,30,35); such that B= <asx< b> x 46> x <ds x <>: 


We now compute k*, where K = < (6,7,8,9,10)> = Zs. Since K is tran- 


sitive, we compute kj = (6,7,8,9,10)*. We proceed as shown above. 
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Table 6.3: Labeling of 71 (7) 


Labeling Element Element Labeling 
11 (1,6) — (7(1),6) — (1,6) 11 
12 (1,7) — (9(1),7) — (2,7) 17 
13 (1,8) — (7(1),8) — (1,8) 13 
14 (1,9) — (97(1),9) — (1,9) 14 
15 (1,10) —> (y(1),10) — — (1,10) 15 
16 (2,6) — (7(2),6) — (2,6) 16 
17 (2,7) — (97(2),7) — (3.7) 22 
18 (2,8) — (7(2),8) — (2,8) 18 
19 (2,9) — (7(2),9) —- (2,9) 19 
20 (2,10) —>+ ((2),10) —> ~ (2,10) 20 
21 (3,6) — (7(3),6) — (3,6) 21 
22 (3,7) —  (97(3),7) — (4,7) 27 
23 (3,8) —  (7(3),8) — (3,8) 23 
24 (3,9) —  (7(3),9) — (3,9) 24 
25 (3,10) —> ((3),10) — — (8,10) 25 
26 (4,6) — (7(4),6) — (4,6) 26 
27 (4,7) — (7(4),7) — (5,7) 32 
28 (4,8) — (7(4),8) — (4,8) 28 
29 (4,9) — (7(4),9) — (4,9) 29 
30 (4,10) —> (9(4),10) —> (4,10) 30 
31 (5,6) — (7(5),6) — (5,6) 31 
32 (5,7) —  (7(5),7) — (Le) 12 
33 (5,8) —  (7(5),8) —- (5,8) 33 
34 (5,9) — (7(5),9) — (5,9) 34 
35 (5,10) —>+ (9(5),10) —> — (5,10) 35 


From Table 8 labeling, we obtain kj = (11,12,13,14,15)(16,17,18,19,20) (21,22,23,24,25) 
(26,27,28,29,30) (31,32,33,34,35), denoted by 

f = (11,12,13,14,15)(16,17,18,19,20) (21,22,23,24,25) (26,27,28,29,30) (31,32,33,34,35). 
So, k* = < kj > =< f>. Thus, the wreath product H 2? K, such that, 


GHB ak" =a, bet ess eS ig et Ze: 
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Table 6.4: Labeling of 71 (8) 


Labeling Element 


Labeling 
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6.1.2 A Presentation of Z2 2 Z; 


To accomplish 


Now, we write a presentation for the previous example. 


Z2. H is composed of 5 copies of Zs 


Zs on H= 


this, we compute the action of K 


Zs = <f >. We compute: 


which is generated by < a, b, c, d, e > and K 
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Table 6.5: Labeling of 71 (9) 


Labeling Element Element Labeling 
11 (1,6) — (7(1),6) — (1,6) 11 
12 (1,7) — (9(1),7) — (1,7) 12 
13 (1,8) — (7(1),8) — (1,8) 13 
14 (1,9) — (97(1),9) — (2,9) 19 
15 (1,10) —> (y(1),10) — (1,10) 15 
16 (2,6) — (7(2),6) — (2,6) 16 
17 (2,7) — (97(2),7) — (2,7) 17 
18 (2,8) — (7(2),8) — (2,8) 18 
19 (2,9) — (7(2),9) — (3,9) 24 
20 (2,10) —>+ (9(2),10) —> ~ (2,10) 20 
21 (3,6) — (7(3),6) — (3,6) 21 
22 (3,7) —  (7(3),7) — (3,7) 22 
23 (3,8) —  (7(3),8) — (3,8) 23 
24 (3,9) —  (7(3),9) — (4,9) 29 
25 (3,10) — (9(3),10) —> — (8,10) 25 
26 (4,6) — (7(4),6) — (4,6) 26 
27 (4,7) — (7(4),7) — (4,7) 27 
28 (4,8) — (7(4),8) — (4,8) 28 
29 (4,9) — (7(4),9) — (5,9) 34 
30 (4,10) —> (9(4),10) —> (4,10) 30 
31 (5,6) — (7(5),6) — (5,6) 31 
32 (5,7) —  (7(5),7) — (5,7) 32 
33 (5,8) — (7(5),8) —- (5,8) 33 
34 (5,9) — (7(5),9) — (1,9) 14 
35 (5,10) —>+ (9(5),10) —> — (5,10) 35 


a! = (11,16, 21,26, 31) (11,12,18,14,15)(16,17,18,19,20) (21,22,23,24,25) (26,27, 28, 29,30) (31,32,83,34,35) 


= (12,17,22,27,32) = b, 

bf = (12,17,22,27 3p) (11,12,18,14,15)(16,17,18,19,20) (21,22,23,24,25) (26,27, 28, 29,30) (31,32,83,34,35) 
2 (19518.23,28,338) =e, 

cf =d, 

df =e, 
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Table 6.6: Labeling of y,(10) 


Labeling Element Element Labeling 
11 (1,6) — (9(1),6) — (1,6) 11 
12 (1,7) — (9(1),7) — (1,7) 12 
13 (1,8) — (7(1),8) — (1,8) 13 
14 (1,9) — (97(1),9) — (1,9) 14 
15 (1,10) —> ((1),10) — ~ (2,10) 20 
16 (2,6) — (7(2),6) — (2,6) 16 
17 (2,7) — (97(2),7) — (2:0) 17 
18 (2,8) — (7(2),8) — (2,8) 18 
19 (2,9) — (7(2),9) —- (2,9) 19 
20 (2,10) —>+ (9(2),10) —> — (8,10) 25 
21 (3,6) — (7(3),6) — (3,6) 21 
22 (3,7) —  (7(3),7) — (3,7) 22 
23 (3,8) —  (7(3),8) — (3,8) 23 
24 (3,9) —  (7(3),9) — (3,9) 24 
25 (3,10) — ((3),10) —> (4,10) 30 
26 (4,6) — (7(4),6) — (4,6) 26 
27 (4,7) — (7(4),7) — (4,7) 27 
28 (4,8) — (7(4),8) — (4,8) 28 
29 (4,9) — (7(4),9) — (4,9) 29 
30 (4,10) —> ((4),10) —> — (5,10) 35 
31 (5,6) — (7(5),6) — (5,6) 31 
32 (5,7) —  (7(5),7) — (5,7) 32 
33 (5,8) — (7(5),8) —- (5,8) 33 
34 (5,9) — (7(5),9) — (5,9) 34 
35 (5,10) —>+ (9(5),10) —> (1,10) 15 


ef =a, 


Hence, a presentation for Ze 2 Zs is given by: 


<a,b,c,d,e,f,| a,b’, c°, d?, e°, (a,b), (a,c), (a,d), (a, e), (b,c), (b, 4), (6, €), (c,d), (¢, €), (de), 


f>, af =—b, bf =e, cf =d, df =e, ef =as. 
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Table 6.7: Labeling of y1(7) 


Labeling Element Element Labeling 
8 (1,4) — (7(1),4) — (1,4) 8 
9 (1,5) — (7(1),5) — (1,5) 9 
10 (1,6) — (7(1),6) — (1,6) 10 
11 (1,7) — (7(1),7) — (2,7) 15 
12 (2,4) — (7(2),4) — (2,4) 12 
13 (2,5) — (7(2),5) — (2,5) 13 
14 (2,6) — (7(2),6) — (2,6) 14 
15 (2,7) — (7(2),7) — (3,0) 19 
16 (3,4) — (7(3),4) — (3,4) 16 
17 (3,5) — (7(3),5) — (3,5) 17 
18 (3,6) — (7(3),6) — (3,6) 18 
19 (3.0) — (7(3),7) — eee 11 


6.1.3. Verifying the Wreath Product Presentation for Z? 2 Z; 


In order to build a successful progenitor with MAGMA we need to confirm 
that H and K are transitive. We verify to see if the presentation for the wreath 


product is correct by doing the following MAGMA code: 


W:=WreathProduct (CyclicGroup(5) ,CyclicGroup(5)) ; 
G<a,b,c,d,e,f>:=Group<a,b,c,d,e,f| a5, b°5, c75, d“5, e5, (a,b), (a,c), 
Cady Caye)s Cbs cs fbyd)y Chye)  Ceyd)s. Ccse)5 Cd a) 5 
f£°5, aef =b, bof =c, cf =d, df =e, e-f=a>; 

f£,G1,k:=CosetAction(G,sub<G| Id(G)>); 
#W; 

15625 

#G1; 


15625 


Table 6.8: Labeling of k* = (6,7,8,9, 10)* 
Labeling Element Element Labeling 
11 (1,6) — (10) 12 
12 (1,7) —> (1,8) 13 
13 (1,8) — (1,9) 14 
14 (1,9) — (1,10) 15 
15 (1,10) — (1,6) 11 
16 (2,6) —> (2,7) 17 
17 (20) —> (2,8) 18 
18 (2,8) > (2,9) 19 
19 (2,9) — (2,10) 20 
20 (2,10) — (2,6) 16 
21 (3,6) — (3,7) 22 
22 (3,7) — (3,8) 23 
23 (3,8) — (3,9) 24 
24 (3,9) — (3,10) 25 
25 (3,10) > (3,6) 21 
26 (4,6) —> (4,7) 27 
27 (4,7) > (4,8) 28 
28 (4,8) — (4,9) 29 
29 (4,9) — (4,10) 30 
30 (4,10) — (4,6) 26 
31 (5,6) —> (5,7) 32 
32 (5,7) — (5,8) 33 
33 (5,8) —> (5,9) 34 
34 (5,9) — (5,10) 35 
35 (5,10) — (5,6) 31 
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IsIsomorphic(G1,W) ; 

true Mapping from: GrpPerm: Gi to GrpPerm: W 
Composition of Mapping from: GrpPerm: Gi to GrpPC and 
Mapping from: GrpPC to GrpPC and 


Mapping from: GrpPC to GrpPerm: W 
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Chapter 7 


Isomorphism Types 


7.1 Mixed Extension (2° :* S,) 


We find the isomorhpism type of the group N on 96 letters given below. xx 
~ (1, 86, 25, 96) (2, 51, 40, 54)(3, 73, 60, 77) (4, 78, 67, 70) (5, 85, 7, 88)(6, 87, 28, 64) (8, 17, 72, 
58) (9, 90, 82, 55)(10, 14, 12, 92)(11, 89, 39, 71) (13, 22, 76, 69) (15, 75, 65, 80) (16, 41, 19, 79) (18, 
74, 68, 35) (20, 33, 57, 84) (21, 48, 23, 47) (24, 95, 29, 45) (26, 31, 62, 34) (27, 46, 66, 49) (30, 59, 32, 
56) (36, 53, 38, 50) (37, 91, 81, 52)(42, 61, 44, 94) (43, 93, 83, 63) and yy ~ (1, 3, 14) (2, 8, 13)(4, 20, 
51)(5, 15, 55) (6, 26, 71)(7, 19, 54) (9, 35, 46) (10, 30, 64) (11, 41, 70) (12, 34, 49) (16, 50, 21) (17, 61, 
29) (18, 63, 24) (22, 68, 89) (23, 65, 92)(25, 57, 53) (27, 59, 94) (28, 56, 52)(31, 45, 36) (32, 76, 38) (33, 
78, 43) (37, 80, 47) (39, 75, 96) (40, 74, 95) (42, 84, 85) (44, 77, 48) (58, 91, 69) (60, 90, 67) (62, 93, 66) (72, 
87, 82)(73, 86, 83)(79, 88, 81) with the order of N equal to 192. 

We examine the composition factors of N, which show us the simple 


groups. 


CompositionFactors(N) ; 
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>G 
| Cyclic(2) 
* 
[” -Cyelte (3) 
* 
| Cyclic(2) 
* 
| Cyclic(2) 
* 
| Cyclic(2) 
* 
| Cyclic(2) 
* 
| Cyclic(2) 
1 


Now, we look at the normal lattice of N to see how our group looks like. Finding 
the largest abelian normal subgroup can help us determine whether this a direct 
product, split, nonsplit, mixed or central extension. In this case, NL|4] is our 


largest normal abelian subgroup. 


NL:=NormalLattice(N) ; 
NL; 
>Normal subgroup lattice 


[8] Order 192 Length 1 Maximal Subgroups: 7 


[7] Order 96 


[6] Order 32 


[5] Order 8 
[4] Order 8 
[3] Order 8 
[2] Order 2 
[1] Order 1 


We proceed by determing the isomorphism type of NL[4]. 


Length 1 


Length 1 


Length 1 


Length 1 


Length 1 


Length 1 


Length 1 


Maximal 


Maximal 


Maximal 


Maximal 


Maximal 


Maximal 


Maximal 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 
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We see that 


NL[A4] is either Zg, 4x2 or 2x2x2. Our guess is that NL[4] is 2x2x2 since NL[4] has 


three generators of order 2 as shown below. 


NL[4] ; 


>Permutation group acting on a set of cardinality 96 


Order = 8 = 273 


(1, 5) (2, 10)(3, 16) (4, 21)(6, 24)(7, 25)(8, 31)(9, 36) (11, 


46) (14, 
69) (28, 
73) (43, 
92) (56, 


95) (88, 


51) (15, 
29) (30, 
81) (45, 
68) (57, 


96) 


20) (17, 62)(18, 59)(19, 60) (22, 66) (23, 


35) (32, 74) (33, 75) (34, 72) (37, 83) (38, 


64) (47, 70) (48, 78) (49, 76) (50, 55) (52, 


65) (61, 89)(63, 91)(71, 94) (77, 79) (80, 


42) (12, 
67) (26, 
82) (39, 
93) (53, 


84) (85, 


40) (13, 
58) (27, 
44) (41, 
90) (54, 


86) (87, 
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Ch, 23).Co5° 38)... 57). (Ay 7) Gy 67). (6; 22) By '74)0(9, 19) (10, 821, (43) 43, 
87) (14, 90)(15, 19)(16, 65)(17, 18) (20, 60) (21, 25) (24, 66) (26, 56) (27, 
29) (28, 69)(30, 34)(31, 32)(33, 73)(35, 72)(36, 40)(37, 44)(39, 83) (41, 
75) (42, 81) (45, 49) (46, 95) (47, 96) (48, 86)(50, 54)(51, 53)(52, 94) (55, 
92) (58, 68) (59, 62)(61, 91)(63, 89) (64, 76)(70, 88)(71, 93)(77, 84) (78, 
85) (79, 80) 


(1, 7)(2, 12)(3, 19)(4, 23) (5, 25)(6, 29)(8, 34)(9, 38)(10, 40) (11, 44) (13, 


. 


49) (14, 54)(15, 57)(16, 60)(17, 26)(18, 56)(20, 65)(21, 67) (22, 27) (24, 
28) (30, 74) (31, 72)(32, 35)(33, 80) (36, 82) (37, 43)(39, 42)(41, 77) (45, 
87) (46, 76) (47, 78) (48, 70)(50, 90) (51, 92) (52, 63) (53, 55) (58, 62) (59, 
68) (61, 71) (64, 95) (66, 69)(73, 79) (75, 84) (81, 83)(85, 96) (86, 88) (89, 


94) (91, 93) 
We do the following to verify our initial suspicion. 


X:=AbelianGroup(GrpPerm, [2,2,2]); 
IsIsomorphic(NL[4] ,X); 


>true 


Thus, we can say that NL[4] is 2°. So far, our presentation for NL[4] is 


as follows: 


H<a,b,c>:=Group<a,b,cla°2,b°2,c°2, (a,b), (a,c), (b,c)>; 
f ,H1,k:=CosetAction(H, sub<H|Id(H)>); 
w:=IsIsomorphic(H1,NL[4]); 

W; 


>true 
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Next, we want to factor out N by NL[4]. So we examine the normal lattice 


of q to determine the isomorphism type of q. 


q,ff:=quo<N|NL[4]>; 

q; 

>Permutation group q acting on a set of cardinality 4 
Order = 24 = 273 * 3 

(1,2) 


(2, 3, 4) 


Since q is of order 24, we can quickly determine that gq = $4. Note: full explanation 
of finding isomorphism type of q on appendix. Therefore, a presentation for q is as 
follows: Q < d,e|d?, e?, (e~'d)* >. Now, we conjugate q by N/NL[4] =< NL[4]D, 
NEE >= (<A> D,< B>D, <C> D,< A> £,< B> EC > £E) 
to determine the action of Q on H by labeling the generators of NL/4] and the 


generators of q as follows: 


>T:=Transversal(N,NL[4]); 

>for iin [1..#T] do if ff(TL[i]) eq q.1 then i; end if; end for; 
2 

>for iin [1..#T] do if ff(TL[i]) eq q.2 then i; end if; end for; 


3 


>A:=NL[4].1; B:=NL[4].2; C:=NL[4] .3; 


>D:=T[2]; E:=T(3]; 


The reader should note that the generators were saved as permutations, but for 
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simplicity we do not show here. If the reader wishes to see how this was done, 


please refer to the appendix. As previously shown, we will conjugate the generators 


of H by the generators of Q, hence, give us a word that is equal in terms of H. 


>for i,j,k in [0..1] 
100 


>for i,j,k in [0..1] 


>for i,j,k in [0..1] 


>for i,j,k in [0..1] 


>for i,j,k in [0..1] 


001 


>for i,j,k in [0..1] 


001 


do 


do 


do 


do 


do 


do 


if 


if 


if 


if 


if 


if 


A°T2 


A°T3 


B°T2 


C°T2 


C°T3 


eq A°i*B°j*C"k then 


eq A~i*B°j*C°~k then 


eq A°i*B°j*C7k then 


eq A7i*B°j*C"k then 


eq A~i*B°j*C"k then 


eq A~i*B°j*C"k then 


i,j,k; 


i,j,k; 


i,j,k; 


i,j,k; 


i,j,k; 


i,j,k; 


end 


end 


end 


end 


end 


end 


if; 


if; 


if; 


if; 


if; 


if; 


Now, this indicates that a4 = a,a® = b«c,b4=a*b*c,b© =ax*b,cl =c, 


and c® = c, we will add them to the overall presentation K which contains all the 


elements from H and Q. 


>K<a,b,c,d,e>:=Group<a,b,c,d,ela°2,b°2,c°2, d*2,e°3, (e°-1*d) “4, 


(a,b), (a,c), (b,c), a°d=a,a*e=b*c, b*d=axb*c, b*e=axb,c*d=c,c*e=c>; 


>#K ; 


192 


>f ,K1,k:=CosetAction(K,sub<K|Id(K)>); 


end 


end 


end 


end 


end 


end 


for; 


for; 


for; 


for; 


for; 


for; 
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>IsIsomorphic(N,K1) ; 


false 


This tells us that N is not a semi-direct 2° : S4 but the mixed extension of 2° by 
S4. That means, one of the generators of q must be further investigated. More 


specifically, we look at (e~'d)*. 


>(T[3]*-1*T[2])74; 

(1, 7)(2, 12)(3, 19)(4, 23) (5, 25)(6, 29)(8, 34)(9, 38)(10, 40) (11, 
44) (13, 49)(14, 54)(15, 57) (16, 60)(17, 26) (18, 56)(20, 65) (21, 
67) (22, 27) (24, 28)(30, 74) (31, 72) (32, 35)(33, 80) (36, 82) (37, 
43) (39, 42)(41, 77) (45, 87) (46, 76) (47, 78) (48, 70)(50, 90) (51, 
92) (52, 63) (53, 55) (58, 62)(59, 68)(61, 71) (64, 95) (66, 69) (73, 
79) (75, 84)(81, 83)(85, 96)(86, 88)(89, 94)(91, 93) 

> C eq (T[3]*-1*T[2]) 74; 


true 


Thus, we can see that (e~!d)* = C. Hence, our final presentation is: 
K <a,b,c,d,e >:= Group < a,b,c, d, ela’, b*, c?, d?, e?, (e~1*d)* = c, (a,b), (a,c), (b,c), a4 = 
a,a® = b«*c,b4 =axbxc,b& =axb,cl=c,c =c>. To verify that this is correct 


we check that our order is still 192. 


>K<a,b,c,d,e>:=Group<a,b,c,d,ela"2,b°2,c°2, d°2,e°3, (e*-1*d) “4=c, 
(a,b), (a,c), (b,c), a°d=a,a*e=b*c, b*d=axb*c, b*e=axb,c*d=c,c*e=c>; 
>#K ; 

192 


>f ,K1,k:=CosetAction(K,sub<K|Id(K)>); 
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>IsIsomorphic(N,K1) ; 


true 


Thus, we verified our final presentation and can conclude that the isomorphism 


type of N is the mixed extension (2° :* $4). 


7.2 Semi-direct (3? : (2: 9,)) 
We begin with a transitive group on 72 letters. 


>S:=Sym(72) ; 

>xx:=S!(1, 23, 49, 32, 12, 60)(2, 44, 16, 45, 17, 62)(3, 41, 6, 55, 50, 33)(4, 
63, 14, 46, 8, 43)(5, 66, 26, 58, 31, 72)(7, 61, 19, 28, 42, 10)(9, 20, 24, 
54, 29, :-38) (11, 69, 35,. 70;. 37, 18) (13,21) (15, 36, 59; 53,47, 48) (2, 
67) (25, 40, 71, 27, 68, 52)(30, 64, 39, 57, 34, 56)(51, 65); 

>yy:=S!(1, 35, 58, 2, 6, 54, 25, 4)(3, 40, 46, 64, 14, 21, 19, 69)(5, 36, 
38, 15, 22, 60, 17, 55)(7, 43, 66, 29, 32, 53, 71, 30)(8, 23, 27, 57, 37, 
39, 67, 41)(9, 13, 50, 59, 42, 26, 20, 44)(10, 24, 12, 31, 45, 48, 16, 

65) (11, 63, 18, 51, 49, 34, 61, 52)(28, 62, 68, 70, 33, 56, 72, 47); 
>N:=sub<S|xx,yy>; 

>#N; 


432 


Next we check the compositon factors of N to see what kind of simple 


groups it consists of. 


>CompositionFactors(N) ; 


G 
| Cyclic(2) 
* 
[- -Cyelse (3) 
* 
| Cyclic(2) 
* 
| Cyclic(2) 
* 
| Cyclic(2) 
* 
| Cyclic(3) 
* 
| Cyclic(3) 
1 


The normal lattice of N is as follows 


In this example, the largest abelian normal subgroup is NL[2]. 


Normal Subgroup Order 


6 432 
5 216 
4 72 
3 18 
2 

1 1 
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We can see that 


the order of this is 9 so it can either be Z or Z73Z3. Magma verifies that it is in 


fact, Z3Z3. And a presentation of NL[2] is shown in H. 


>X:=AbelianGroup(GrpPerm, [3,3]); 


>s:=IsIsomorphic(NL[2] ,X); 


true 


>H<a, b>: =Group<a,b|a~3,b°3, (a,b)>; 


>f ,H1,k:=CosetAction(H,sub<H|Id(H)>) ; 


>wi:=IsIsomorphic(H1,NL[2]); 


>wi; 


true 
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Now, we because there is no normal subgroup of order 48 outside of NL[2]. So, NV 


cannot be a direct product. Hence, we need to investigate what the isomorphism 


of q is to helps us determine the type for our group. 


7.3 Semi-direct (2° : 4) 


We begin with a transitive group on eight letters. 


>S:=Sym(8) ; 
>xx:=S!(1, 8)(2, 3)(4, 5) (6, 7); 
ayy raed; 3) (38), 6) Sy. Hs 


>zz:=S!(1, 5)(2, 6)(3, 7) (4, 8); 
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>tt:=S!(1, 3)(4, 5, 6, 7); 


>N:=sub<S|xx,yy,zz,tt>; 


>#N; 


32 


Next, we examine the composition factors of N to see the simple groups of N. 


>CompositionFactors(N) ; 


G 
| 


Cyclic(2) 


Cyclic(2) 


Cyclic(2) 


Cyclic(2) 


Cyclic(2) 


As previously seen, we examine the normal lattice of N to get an idea 


of how our N will look like, i.e. direct product, split, non-split, central or mixed 


extension. 


NL:=NormalLattice(N) ; 


NL; 
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Normal subgroup lattice 


[12] Order 32 Length 1 Maximal Subgroups: 9 10 11 


[11] Order 16 Length 1 Maximal Subgroups: 7 
[10] Order 16 Length 1 Maximal Subgroups: 6 7 8 


[ 9] Order 16 Length 1 Maximal Subgroups: 7 


[ 8] Order 8 Length 1 Maximal Subgroups: 3 
[ 7] Order 8 Length 1 Maximal Subgroups: 3 4 5 


[ 6] Order 8 Length 1 Maximal Subgroups: 3 


[ 5] Order 4 Length 1 Maximal Subgroups: 2 
[ 4] Order 4 Length 1 Maximal Subgroups: 2 


[ 3] Order 4 Length 1 Maximal Subgroups: 2 


[ 2] Order 2 Length 1 Maximal Subgroups: 1 


[ 1] Order 1 Length 1 Maximal Subgroups: 


In this case, the largest normal abelian subgroup of N is NL[8] with order 8. Thus, 
NL[8] is isomorphic to either Zg, Z4 x Zz or ZX Z2 x Z. NL[8] has three generators 


of order 2 so our initial suspicion is that it is isomorphic to Zs. 


>X:=AbelianGroup(GrpPerm, [2,2,2]); 
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>IsIsomorphic(NL[8] ,X); 


true 


Hence, a presentation for NL[8] is as follows 
H < a,b,c >:= Group < a,b, cla”, b?, c?, (a,b), (b,c), (a,c) >. We verify that this 


is correct: 


>#H; 

8 

>f ,H1,k:=CosetAction(H, sub<H|Id(H)>) ; 
>IsIsomorphic(H1,NL[8]); 


true 


We know that N cannot be a direct product since there is no other normal 


subgroup of order 4 that is not contained in NL[8]. Factoring N by NL[8}: 


>q, ff :=quo<N|NL[8]>; 
>q; 
Permutation group q acting on a set of cardinality 4 
Order = 4 = 2°2 
Id(q) 
Td(q) 
Td(q) 
(1,2, 3;.4) 
> IsCyclic(q) ; 


true 
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Therefore, isomorphism type of q is Q < djd* >. Now to find the action of q on 


H. Since q is abelian, we can find it by doing the following loops: 


>T:=Transversal(N,NL[8]); 

>for iin [1..#T] do if ff£(TL[il]l) eq q.1 then i; end if; end for; 
1 

>for iin [1..#T] do if ff(TL[i]) eq q.2 then i; end if; end for; 
1 

>for iin [1..#T] do if ff(TL[i]) eq q.3 then i; end if; end for; 
1 

>for iin [1..#T] do if ff(TL[i]) eq q.4 then i; end if; end for; 
2 

The generators for NL[8] and q are labeled as such: 

>A:=N!(1, 5)(2, 6)(3, 7) (4, 8); 

>BI=N1 C1, 3)02;. 8) 4, 6), 75 

>C:=N!(1, 8)(2, 3)(4, 5)(6, 7); 


>D:=N!(1, 3)(4, 5, 6, 7); 


Now, we conjugate every generator of NL[8] by D, such that, N/NL[8]=< 
NLI[8|D >. N/NL[8|=(< A> D,< B>D,<C>D). 


>for q,r,s in [0..1] do if A°D eq A*q*B*r*C*s then q,r,s; end 
if; end for; 

DOs 

>for q,r,s in [0..1] do if B°D eq A*q*B*r*C*s then q,r,s; end 


if; end for; 
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010 

>for q,r,s in [0..1] do if C°D eq A*q*B*r*C*s then q,r,s; end 
if; end for; 

oii 

>A°D eq Ax*C; 

true 

>B“D eq B; 

true 

>C°D eq BxC; 


true 
Thus, a final presentation of N is the following 


>Z<a,b,c,d>:=Group<a,b,c,dla°2,b°2,c°2, (a,b), (a,c), (b,c), 
d*4, a*d=axc, (b,d) ,c*d=b*c>; 

>#Z; 

32 

>f ,Z1,k:=CosetAction(Z, sub<Z|Id(Z)>) ; 

>#Z1; 

32 

>w:=IsIsomorphic(Z1,N) ; 

>W; 


true 


Hence, our presentation of N & (2° : 4). 
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7.4 Semi-direct (7! : (2° : 2)) 


We start with a transitive group on 28 letters. N is of order 38416 with 
a ~ (1, 14, 17, 27, 7, 9, 20, 22, 6, 11, 16, 24, 5, 13, 19, 26, 4, 8, 15, 28, 3,10, 18, 
23, 2, 12, 21, 25) and y ~ (1, 28, 5, 22)(2, 23, 4, 27)(3, 25)(6, 24, 7, 26)(8, 16)(9, 
21, 14, 18)(10,19, 13, 20)(11, 17, 12, 15). 

In this case, the largest abelian normal subgroup is NL[7] and the order 
is 2401. So the isomorphism type is either Z2491, or a combination of multiple of 
7. We know that it cannot be a direct product since there does not exist a normal 
subgroup of order 16 outside of NL[7]. Thus, a presentation for NL[7] is shown by 
E. Since NL[7] has four generators of order 7 we can assume it is74, Magma can 


comfirm that we have 7*. And a presentation for NL[7] follows. 


>IsIsomorphic(NL[7] , AbelianGroup(GrpPerm,[7,7,7,7])); 
true 

>E<a,b,c,d>:=Group<a,b,c,dla*7,b°7,c°7,d°7, (a,b), 
(a,c), (b,c), (a,d), (b,d), (c,d)>; 

>#E; 


2401 


Now we must factor out N by NL[7] and NL[7] is an extension of g = 
N/NL(7|. The generators of q are F = (1, 2, 4, 7)(3, 5, 8,6) and F' = (1,3, 6, 2)(4, 8, 5, 7). 


Hence, a presentation for q is 
F <e,f >:= Group <e, fle*, f4, (e~1 * f-1)”, (e* f-1)? > 


After a series of transversal computations T[i] of NLZ[7] in N, such that 


T[2] ~ E and T[3] ~ F. We find that 
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ATI2] = A*B> x C x D®, 
BT] = A*BS « C4 x D3, 
CTP] — C2 * D5, 
DT] = C5 * D 
ATI] = A*B x C x D®, 
BT] = A*BS x C? * D3, 
CTB = C? « D>, and 
DIB = ou * D° 


Therefore, a final presentation of N is J < a,b,c,d,e, fla", b",c’,d", (a,b), (a,c), (b,c), (a, d), 
(b, d), (c,d), e*, f*, (e"f)?, (ef 1)?, a& = ab? cd®, b° = ab®c*d?, c& = ca, 
d® = 2d’, al = ab’cd®, bf = ab®ce?'d?, cf = ed’, df = &d® >. And we can confirm 


via Magma that this is correct. 


> #J; #N; 

38416 

38416 

> £,J1,k:=CosetAction(J,sub<J|Id(J)>); 
> IsIsomorphic(J1,N) ; 


true 


Thus, we can conclude that N is a semi-direct of (74 : (2° : 2)). 
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Appendix A 


MAGMA CODE Construction 
of 2* : (37: 4) over (3? : 4) 


N:=TransitiveGroup (6,10) ; 


N; 


S:=Sym(6) ; 

xx:=S!(2, 4, 6); 
yy:=8!(1, 5) (2, 4); 

27 7=6i(1, “450 2) G6) 
N:=sub<S|xx,yy,zZz>; 


#N; 


FPGroup (N) ; 


NN<a,b,c>:=Group<a,b,cla*3,b°2,c74, (a*-1*b) “2, 


c7-1i*b*c7-1,a°-1*c7-1*a7-1*c7-1*a7-1*cxax*c>; 


#NN ; 


Set (N); 


SchreierSystem*/ 


SchreierSystem(NN, sub<NN|Id(NN) >) ; 


Sch:=SchreierSystem(NN,sub<NN|Id(NN)>) ; 
ArrayP:=[Id(N): i in [1..#N]]; 

for iin [2..#N] do 

P:=[Id(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Sch[i]] do 

/* we put -1 if our G contains powers to the 
if Eltseq(Schli])[j] eq 1 then P[j]:=xx; end 
if Eltseq(Sch[i])[j] eq -1 then P[j]:=xx*-1; 
if Eltseq(Sch[i])[j] eq 2 then P[j]:=yy; end 
if Eltseq(Sch[i])[j] eq 3 then P[j]:=zz; end 


if Eltseq(Sch[i])[j] eq -3 then P[j]:=zz*-1; 


end for; 
PP:=Id(N) ; 


for k in [1..#P] do 


negative*/ 


if; 
end 
Af 
if; 


end 


if; 


if; 
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PP:=PP*P[k]; end for; 
ArrayP [i] :=PP; 


end for; 


N1:=Stabilizer(N,1); 


Ni; 


for iin [1..#Sch] do if ArrayP[i] eq N!(2,4,6) then Sch[i]; end if; end for; 


for iin [1..#Sch] do if ArrayP[i] eq N!(2,6)(3,5) then Sch[i]; end if; end for; 


XX; 


ZZ*XX” —1*ZZ*XX; 


N1 eq sub<N|xx,zz*xx*-1*zz*xx>; 
G<x,y,z,t>:=Group<x,y,z,t|x°3,y°2,2°4, (x*-1*y) “2, 
Z~-Ley*z°-1,x°-1*Z7-1*x7-1*Z7-1*x*-1*z*x*z,t72, 


(t,x), (t,z*x7-1*Z*x) >; 


Orbits(N1); 


for j in [1..6] do for i in [1..#N] do if 1°ArrayP[i] eq j then j, 


Sch[i]; break; end if; end for; end for; 
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NN; 


#NN ; 


G<x,y,z,t>:=Group<x,y,z,t|x°3,y°2,2°4, (x*-1*y) 2, 
Z-Ley*z°-1,x°-1*Z7-1*x7-1*Z7-1*x*-1*Z*x*z,t72, 
(t,x), (t,z*x7-1*z*x) , 

(t,t* (z*x*z)) , (t,t*(z*-1))>; 


#G; 


2° 6*36; 


C:=Classes(N) ; 
for i in [2..#C] do i, C[i][8]; for j in [1..#N] do 
if ArrayP[j] eq Cli] [3] then Sch[j]; end if; end for; 


Orbits (Centralizer(N,C[i][3])); end for; 


for j in [1..6] do for i in [1..#N] do if 1°ArrayP[i] eq j then j, 


Sch[i]; break; end if; end for; end for; 
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Appendix B 


MAGMA CODE Isomorphism 
Type of 2+: (37: 4) 


N:=TransitiveGroup(6, 10); 
N; 

S:=Sym(6) ; 

xx:=S!(2, 4, 6); 

yy:=S!(1, 5) (2, 4); 
ze:=Si(1,. 4, 5, 2), 64 


N:=sub<S|xx,yy,2Zz>; 


/* to find isom type of G */ 
a:=0;b:=0;c:=0;d:=0;e:=6;f:=3;¢:=8;h:=0;1:=0;j:=0; 
G<x,y,z,t>:=Group<x,y,z,t|x°3,y°2,2°4, (x*-1*y) “2, 


Z--Ley*z7-1,x°-1*Z27-1*x7-1*Z7-1#x7-1*Z*x*z, 


t°2, (t,x), (t, 2*x*-1*z*x) , (y*t) “a, (y*t* (z7-1))*b, 
(z¥*x*z~-1*t) *c, (z*x*z7-1*t* (z*-1)) 7d, 
(x¥z*x*Z~-14*t) ee, (x*¥z*ex*z>-1*t* (z7-1)) “f, (z*t) “g, 
(z*t7z°-1) ch, (2*-1*t) “i, (2*-1*t* (z*-1)) 74>; 

#G; 

> £,G1,k:=CosetAction(G, sub<G|x,y,z>) ; 


> CompositionFactors (G1) ; 
> X:=AbelianGroup(GrpPerm, [2,2,2,2]); 
> NL:=NormalLattice(G1) ; 


> NL; 


> IsIsomorphic(X,NL[2]); 


Vv 


q, ff :=quo<G1|NL[2]>; 


> IsIsomorphic(q,sub<G1lf(x),f(y),f(z)>); 
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Appendix C 


MAGMA CODE Monomial 
Progenitor 3*! :, PSL(2,7) 


Consider the following group G and its subgroup H. 
S:=Sym(7) ; 

Se SSi CT, 2s 385 6515 

yy:=S!(1, 2)(3, 6); 

G:=sub<S|xx,yy>; 

#G; 

CG:=CharacterTable(G) ; 

H:=sub<G/(1, 5)(2, 7),(1, 2, 4)(5, 6, 7)>; 

#H; 


CH:=CharacterTable(H) ; 


CH[2] ; 
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CG[5] ; 


I:=Induction( CH[2] ,G); 


I; 


C:=Classes(G) ; 


#C; 


CL1]; 


Cla]; 


"C2=",Set(Class(G,C([2] [3])); 


CL3]; 


"C3=",Set(Class(G,C([3] [3])); 


C[4]; 


"C4=",Set(Class(G,C[4] [3])); 


C[5]; 


"C5=",Set(Class(G,C([5] [3])); 


Ci6é]; 


"C6=",Set (Class (G,C[6] [3])); 


D:=Classes(H) ; 


D; 


D[1]; 


"D1=",Set(Class(H,D[1] [3])); 


D[2]; 


"D2=",Set (Class (H,D[2] [3])); 


D[3]; 


"D3=",Set (Class (H,D[3] [3])); 


D[4]; 


"D4=",Set (Class (H,D[4] [3])); 


D[5]; 


"D5=",Set (Class (H,D[5] [3])); 


CH:=CharacterTable(H) ; 


CH; 
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T:=Transversal (G,H); 
#T; /* 7 , Will be 7 since #G/#H=7.*/ 


ile} 


/* this is the version he showed in class to find perm of A */ 
Ti] *xx*T[1]°-1 in H;/* false */ 
T([i] *xx*T[2]°-1 in H;/* true */ 
Ti] *xx*T[3]°-1 in H;/* false */ 
Ti] *xx*T[4]°-1 in H;/* false */ 
T[1]*xx*T[5]*-1 in H;/* false */ 
T(1]*xx*T[6]*-1 in H;/* false */ 


T[1i]*xx*T(7]°-1 in H;/* false */ 


T [41] *xx*T[2]*-1; /* Id(S) */ 
CH[2] (H!Id(S));/* 1 */ 


/* so the first row is [1,0,0,0,0,0,0] 


T[2]*xx*T[1]°-1 in H;/* false */ 
T[2]*xx*T[2]°-1 in H;/* false */ 
T[2]*xx*T[3]°-1 in H;/* false */ 
T(2]*xx*T[4]°-1 in H;/* true*/ 

T(2]*xx*T[5]*-1 in H;/* false */ 
T(2]*xx*T[6]*-1 in H;/* false */ 


T[2]*xx*T[7]°-1 in H;/* false */ 
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T [2] *xx*T[4]*-1; /*Id(S) */ 


CH[2] (H!Id(S));/* 1 */ 


/* so the second row is [0,1,0,0,0,0,0] 


T(3] *xx*T[1]*-1 
T([3] *xx*T[2]*-1 
T[3] *xx*T[3] 7-1 
T [3] *xx*T[4]*-1 
T(3] *xx*T[5]*-1 
T(3] *xx*T [6] 7-1 


T(3] *xx*T [7] 7-1 


T(3] *xx*T[5]*-1; 


in 
in 
in 
in 
in 
in 


in 


/* 


H;/* true */ 
H; 


H; 


Id(S) */ 


CH[2] (H!Id(S));/* 1 */ 


/* so the third row is [0,0,1,0,0,0,0] 


T[4] *xx*T[1]7-1 
T[4] *xx*T[2]7-1 
T [4] *xx*T[3]~-1 
T [4] *xx*T[4] 7-1 
T(4] *xx*T[5]~-1 
T [4] *xx*T[6]*-1 


T(4] *xx*T(7]*-1 


in 


in 


in 


in 


in 


in 


in 


H; 
H; 


H;/* true */ 
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T(4] *xx*T[5]°-1;/* Id(S) */ 


CH[2] (H!Id(S));/* 1 */ 


/* so the fourth row is [0,0,0,1,0,0,0] 


T(5]*xx*T[1]~-1 
T(5]*xx*T[2]7-1 
T(5]*xx*T[3] 7-1 
T([5] *xx*T([4]*-1 
T(5] *xx*T [5] 7-1 
T(5] *xx*T[6]~-1 


T(5]*xx*T([7]°-1 


in 


in 


in 


in 


in 


in 


in 


H;/* true*/ 


H; 


T[5]*xx+*T[6]*-1; /*(1, 4, 5)(2, 7, 6)*/ 


CH[2] (H!(1, 4, 5)(2, 7, 6));/* 1 */ 


/* so the fifth row is [0,0,0,0,1,0,0] 


T(6]*xx*T[1]*-1 
T [6] *xx*T[2]*-1 
T [6] *xx*T[3]~-1 
T(6] *xx*T[4]~-1 
T [6] *xx*T[5] 7-1 


T(6] *xx*T[6]*-1 


in 


in 


in 


in 


in 


in 
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T(6]*xx*T[7]*-1 in H;/* true */ 


T(6]*xx*T[7]*-1; /*(1, 2, 7, 5) (4, 6)*/ 
CH[2] (H!(1, 2, 7, 5)(4, 6));/* -1 */ 


/* so the sixth row is [0,0,0,0,0,-1,0] 


T(7] *xx*T[1]°-1 in H;/* true */ 
T(7] *xx*T[2]*-1 in H; 
T(7] *xx*T[3]*-1 in H; 
T(7] *xx*T[4]*-1 in H; 
T(7] *xx*T[5]*-1 in H; 
T(7] *xx*T[6]*-1 in H; 


T(7] *xx*T(7]*-1 in H; 


TLE7] *xx*T[1]*-1; /*(1, 4, 7, 6)(2, 5)*/ 
CH[2] (H!(1, 4, 7, 6)(2, 5));/* -1 */ 


/* so the seventh row is [-1,0,0,0,0,0,0]*/ 


for iin [1..7] do if T[1]*xx*T[i]*-1 in H then i; end if; end for; 


/* 2 , this means we will take i=2, CH[2]xxT2 */ 


CH[2] (T[1] *xx*T [2] 7-1); 


/* 1 , this command means my first row of matrix is (1,0,0,0,0,0,0) 
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Now , we check the second row: */ 
for iin [1..7] do if T[2]*xx*T[i]*-1 in H then i; end if; end for; 


/* 2 , this means we will take i=4, CH[4]xxT2*/ 


CH[2] (T [2] *xx*T[4]*-1); 
/* 1 , this means the second row of the matrix is (0,1,0,0,0,0,0) 


we continue this same process for rows 3-7 */ 


C:=CyclotomicField(3); /* Hasan looked at my CH[2] to determine this */ 


Ac=([[6150,0,030,0,0)2: 4am Tec 7s 

for i,j in [1..7] do Ali,j]:=0; end for; 

for i,j in [1..7] do if T[i]*xx*T[j]°-1 in H then 
Ali, j]:=CH[2] (T[i] *xx*T[j]*-1); end if; end for; 


A; 


/*rewrite this for yy */ 


for iin [1..7] do if T[1]*yy*T[i]*-1 in H then i; end if; end for; 


/* 3, this means we will take CH[2] yyT3*/ 


CHL2] (T[1] *yy*T[3]~-1) ;/* -1 */ 


C:=CyclotomicField(3); /* Hasan looked at my CH[2] to determine this */ 


B:=[[C.1,0,0,0,0,0,0]: i in [1..7]]; 
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for i,j in [1..7] do Bli,j]:=0; end for; 
for i,j in [1..7] do if Tlil]l*yy*T[j]°-1 in H then 
Bli,j] :=CH[2] (Tli]*yy*T[j]*-1); end if; end for; 


B; 


/*Let us now write A as A(xx) and B as A(yy).*/ 
GG:=GL(7,C) ; 

GG!A; 

/* 


[0 10 0 0 0 90] 


[0 0 10 0 0 QO] 


[0 0 00 0 1 0] 


GG!B; 


[0 0 0-1 0 0 0] 
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[0 0 0 0-1 0 0] 
[0 0 0 0 0 0-1] 
[0 0 0 0 0-1 0] 


wed 


/*Now we check faithfulness*/ 
Order (GG! A) ; 

/* 7 */ 

Order (xx) ; 


eat aes 


Order (GG!B) ; 

/* 2 */ 

Order (yy) ; 

/*2 */ 

IsIsomorphic(G,sub<GG|GG!A, GG!B>);/*true, 


by these calculations above, this means it is faithful*/ 


GG:=GL(7,GF(3)); 
GG!A; 

/* 
[0100000] 
1000100 0] 


10000100] 
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[0010000] 
[0000010] 
[000000 2] 


[200000 0] 


So we have A(xx)=(1, 2, 4, 3, 5, 6, 14)(7, 8, 9, 11, 10, 12, 13) 


Now we just write A(xx)=A as a permutation. */ 


S:=Sym(14); /* we write 14 since we had a total of 14 ti’s */ 


Aper:=S!(1, 2, 4, 3, 5, 6, 14)(7, 8, 9, 11, 10, 12, 13); 


[200000 0] 
1000200 0] 


1000020 0] 


So we have A(yy)= (1,10) (3,8) (4,11) (5,12) (6,14) (7,13) 


Now we just write A(yy)=B as a permutation. */ 


S:=Sym(14); /* we write 14 since we had a total of 14 ti’s */ 


Bper:=S! (1,10) (3,8) (4,11) (5,12) (6,14) (7,13) ; 


Order (Aper) eq Order (GG!A) ; 
Order (Aper) eq Order (xx) ; 
Order (Bper) eq Order (GG!B) ; 


Order (Bper) eq Order(yy); 


IsIsomorphic(sub<S|Aper,Bper>,sub<GG|GG!A,GG!B>) ; 


S:=Sym(14) ; 


exs=SI1, 54s 35,65. 14) (75.°85'9, AL 105° 92> 13); 


yy :=8! (1,10) (3,8) (4,11) (5,12) (6,14) (7,13); 


N:=sub<S|xx,yy>; 


#N; /* 168 */ 


N; 


FPGroup (N) ; 


NN<a,b>:=Group<a,b | a°7, b°2, (b*a)~3, (a*b*a*2)74 >; 


#NN; /* 168 */ 


Nt:=Stabiliser(N,{1,8}); 
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#Nt ; 


Nt; 


word: =function (A) 
Sch:=SchreierSystem(NN,sub<NN|Id(NN)>) ; 

for iin [2..#NN] do 

P:=[Id(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Sch[i]] do 

if Eltseq(Sch[i])[j] eq 1 then P[j]:=xx; end if; 

if Eltseq(Sch[i])[j] eq -1 then P[j]:=xx*-1; end if; 


if Eltseq(Sch[i])[j] eq 2 then P[j]:=yy; end if; 


end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

if A eq PP then B:=Sch[i]; end if; 
end for; 

return B; 


end function; 


A:=N!(2, 7, 12)(8, 11, 13)(4, 6, 10)(5, 9, 14); 


B:=N!(2, 10)(3, 9)(4, 14) (5, 12)(6, 13)(7, 11); 
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C:=N!(1, 8)(2, 6, 3, 12)(4, 7, 11, 14)(5, 9, 13, 10); 


word (A) ; 


word (B) ; 


word(C) ; 


W:=WordGroup (N) ; 

rho:=InverseWordMap (N) ; 

A:=N!(2, 7, 12)(3, 11, 13) (4, 6, 10)(5, 9, 14); 
B:=N!(2, 10)(3, 9)(4, 14) (5, 12)(6, 13)(7, 11); 


C:=N!(1, 8)(2, 6, 3, 12)(4, 7, 11, 14)(5, 9, 13, 10); 


A@rho; 


wA:= function(W) 

w3 := W.1°4; w2 := W.2°-1; w4 := W.1°2; w5 := w2 * w4; w6 := w3 * w5; w8 := 
W.2 * w6; w9 := w8 * W.2; wi0 := w9 * W.1; wil := wi0 * W.1; wi2 := wil * 
W.2; wi := W.1°-1; wi3 := wi2 * wi; return wi3; 


end function; 


wAC(NN) ; 


yy * xx°4 * yy°-1 * xx°2 * yy * xx°2 * yy * xx7-1; /* from wA */ 


/* (2, 7, 12)(3, 11, 13), 6, 10), 9, 14) */ 


xx * yy * xx°-3 * yy * xx; /* from word(A) */ 
/* (2, 7, 12)(3, 11, 13) (4, 6, 10)(5, 9, 14) */ 


/* hence, both words have the same permutations*/ 


B@rho; 

wB:= function(W) 
w3 := W.1°4; w2 := W.2°-1; w4 := W.1°2; w5 := w2 * w4; 
w6 := w3 * w5; w8 := 
W.2 * w6; w9 := w8 * w6; wi := W.1°-1; w1lO := w9 * wi; 
wil := widO * W.2; 
return wii; 

end function; 

wBC(NN) ; 

/* b * a°4 * b°-1 * a°6 * DT-1 * A¥D, 


this means yy * xx74 * yy7-1 * xx76 * yy7-1 * xx * yy */ 


C@rho; 
wC:=function(w) 


w3 := W.1°4; w2 := W.2°-1; w4 := W.1°2; w5 := w2 * w4; 
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w6 := w3 * w5; w8 := 


W.2 * w6; wil := W.17-1; wl2 := w8 * wl; wi3 := wi2 * wil; 


wi4 := wi3 * W.2; 
return wil4; 


end function; 


wC(NN) ; 
/* b * a4, 


this means yy * xx74 ¥*/ 


17A; 

/* 1, so we will write (t,A) or we can say t“A=t */ 

17B; 

/* 1, so we will write (t,B) or we can say t*B=t */ 

1°C; 

/* 8 so we will write t°C=t8 but t8=t1°2 when we looking 
at our labeling of t_i’s, so 


we can say t~C=t72 */ 


/* Now we can input all this new info into our NN, 
NN<a,b>:=Group<a,b | a°7, b°2, (b*a)~3, (a*b*a*2) 74, 
t°3, (since our field is of order 3), 


(t,A), we insert the perm from word(A) 
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here BUT make sure it only 
one x and y in each 
(t,B), similarly, we insert the perm from word(B) here 


t°C=t°2 similarly, we insert the perm from word(C) here>; */ 


G<x,y,t>:=Group<x,y ,t| x77, y°2, (y*x)73, (x*y*x72)74, 
t73, 

(t,x * y * x7-3 * y * x), 

(t,y * x7-2 * y * x72 * y), 


tr (y * x°-3)=t72 >; 


/* Testing the progenitor - Grindstaff Lemma. 


Sym 14 , xxx, yyy come from our originals (start of problem 4 ) */ 
S:=Sym(14) ; 
xxx:=S!(1, 2, 4, 3, 5, 6, 14)(7, 8, 9, 11, 10, 12, 13); 


yyy:=8! (1,10) (3,8) (4,11) (5,12) (6,14) (7,13); 


GGG:=sub<S | xxx,yyy>; 


#GGG;/* 168 */ 


Stabilizer (GGG,1); 


Orbits (Stabilizer(GGG,1)); 


/* we do this loop to see what our perms are: */ 
temp:={2,8}; 

for n in N do for j in temp do if 1°n eq j then word(n),j; 
temp:=temp diff {j}; end if; end for; 

end for; 

/* 

a2 


a~-3 * b * a°3 8 


this implies that 1°xx eq 2 */ 


1°xx; 


/* 2 , sp we can rewrite as (t, t*x) */ 


1*(xx*-3 * yy * xx73) ; 


/* 8, so we can rewrite as (t, t°x7-3 * y * x73) */ 


G<x,y,t>:=Group<x,y ,t| x77, y°2, (y*x)73, (x*y*x72)74, 
t°3, /* NOTE: comes from #of field in this case its 
Z3*/ 


(t,x * y * x°-3 * y * x), /* NOTE: comes from word of 
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generator of Nt:=Stabilizer*/ 


(t,y * x°-2 * y * x°2 * y), /* NOTE: comes from word 


of generator of Nt:=Stabilizer*/ 


t°(y * x°-3)=t°2, /* NOTE: comes from word of 


generator of Nt:=Stabilizer*/ 


(t, t°x), /* NOTE: comes from word of orbits 


of Stabilizer*/ 


(t, t7(x7-3 * y * x73)) >;/* NOTE: comes from 
word of orbits of Stabilizer*/ 

/* #G eq Index=3°7 * #N=168 */ 

Index(G,sub<G | x, y >); 

/* 2187 */ 

3°73 

/* 2187 */ 

2187 * 168; 


/* 367416 */ 


#G; 


G<x,y,t>:=Group<x,y,t|lx°7, y°2, (Cy*x)73, (x*y*x72)74, 
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t°3, 
(t,x*y *x7-3*y*x) , 
(t, y*x7-Qey*x7 Qty) , 


t* (y*x7-3)=t72 >; 


C:=Classes(N) ; 


C; 


for i in [2..#C] do i, C[i][3]; word(Cc[i] [3]); 


Orbits (Centraliser(N,C[i][3])); end for; 


/* to find out what ts are we do the following loop */ 
for j in [2..#N] do for i in [1..#Setseq(Set(N))] do 
if 1°Setseq(Set(N)) [i] eq 


j then j,word(Setseq(Set(N))[i]) ; break; end if; end for; end for; 


Appendix D 


MAGMA CODE Monomial 


Progenitor 3** +), (2? : 4) 


4 


:=TransitiveGroups (8) ; 


G:=T(27]; 


CG:=CharacterTable(G) ; 


op) 


:=Subgroups (G) ; 

H:=S [40] ‘subgroup; 
CH:=CharacterTable(H) ; 
Induction(CH[2] ,G) eq CG[11]; 


/* true */ 
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S:=Sym(8) ; 

xx:=S!(4, 8); 

Vries lls 25.8 6) 5565-0): 
G:=sub<S|xx,yy>; 

G eq T[27]; 


/* true */ 


for g,h in H do if H eq sub<H | g,h> then g,h; end if; end for; 


/* nothing came out so means we need to use all four generators */ 


A:=G!(2, 6); 

B:=G!(1, 3)(2, 8)(4, 6)(5, 7); 
C:=G!(1, 5)(2, 6) (3, 7)¢4, 8); 
D:=G!(2, 6)(4, 8); 
S:=Subgroups (G) ; 
H1:=sub<G|A,B,C,D>; 


H1 eq S[40] ‘subgroup; /* true */ 


CH:=CharacterTable(H) ; 


CG:=CharacterTable(G) ; 


CH; 
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CG; 


for i in [2..#CH] do for j in [9..#CG] do if Induction(CH[i] ,G) eq CG[j] 


and IsFaithful(CG[j]) then i,j; end if; end for; end for; 


Induction(CH[2],G) eq CG[11]; /* true */ 
Induction(CH[3],G) eq CG[12];/* true */ 
Induction(CH[5],G) eq CG[11];/* true */ 


Induction(CH[6],G) eq CG[12];/* true */ 


T:=Transversal(H, Hprime) ; 


#T; /* 8 , these are the 8 cosets of Hprime in H */ 


Ht:=({h*T[i] : h in Hprime} : i in [1..8]]; 
Ht[1] eq Set(Hprime) ; 


/* true */ 


q,ff:=quo<H|Hprime>; 


IsAbelian(q); /* true */ 


q; 
IsIsomorphic(q,AbelianGroup(GrpPerm, [2,2,2])); 


/* true */ 


/* So we check the char table of Z2 X Z2 X Z2 */ 


ff(T[2]) eq q.1; 


/* true */ 


f£(T[3]) eq q.2; 


/* true */ 


f£(T[4]) eq q.3; 


/* true */ 


/*This means, a=T[2], b=T([3] ,c=T[4] */ 


/* Classes of H/Hprime: */ 


/* e a b 


ab ac be abc */ 
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/* the 8 elements are obtained substituting: (-1)* (-1)* (-1)* */ 


for iin [1..8] do 
/*5, ab=Ht [5] */ 

for iin [1..8] do 
/*6, ac=Ht[6] */ 
for iin [1..8] do 
/* 7, bce=Ht[7] */ 
for i in [1..8] do 


/*8, abc=Ht[8] */ 


T(2]*T[3] in Ht[i] then i; end 


T(2]*T[4] in Ht[i] then i; end 


T(3]*T[4] in Ht[i] then i; end 


T[2]*T(3]*T(4]in Ht[i] then i; 


if; end for; 


if; end for; 


if; end for; 


end if; end for; 


C:=Classes(H) ; 
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cC:=[Set(Class(H,C[i][3])) : iin [1..#C]]; 


cc[1]; 


CC[2];/* we do this one since we are looking at CH[2] */ 


#C; /* 10 *//* there are 10 since this in H*/ 


Hprime; 


for i 


for i 


for i 


for i 


for i 


in 


in 


in 


in 


in 


[ate 


cu, 


[ise 


lee. 


(i. 


[ise 


-#C] 


-#C] 


HC] 


LHC] 


-#C] 


HC] 


do 


do 


do 


do 


do 


do 


if 


if 


if 


if 


if 


if 


Id(H) in CC[i] then i; end if; end for; 


H!(2,6)(4,8) in CC[i] then i; end if; end for; 


Ht(2] subset CC[i] then i; end if; end for; 


Ht(3] subset CC[i] then i; end if; end for; 


Ht[4] subset CC[i] then i; end if; end for; 


H!(1, 5)(3, 7) in CC[i] then i; end if; end for; 
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for iin [1..#C] do if H!(1, 5)(2, 6)(3, 7)(4, 8) in CC[i] then i; 


end if; end for; 


for iin [1..#C] do if Ht[5] subset CC[i] then i; end if; end for; 


for iin [1..#C] do if Ht[6] subset CC[i] then i; end if; end for; 


for iin [1..#C] do if Ht[7] subset CC[i] then i; end if; end for; 


for iin [1..#C] do if Ht[8] subset CC[i] then i; end if; end for; 


/* ( 1, 1, I, 1, 1, 1, =, Hd, =, -1 ) */ 


for iin [1..10] do if CH[8](C[i][3]) ne Xdot[i] then i; end if; end for; 


T:=TransitiveGroups (8) ; 

G:=T[27]; 

G; 

/* 

Permutation group G acting on a set of cardinality 8 


Order = 64 = 276 


(4, 8) 
(1, 2, 3, 8) (4, 5, 6, 7) 
*/ 


CG:=CharacterTable(G) ; 


S:=Subgroups(G) ; 

H:=S [40] ‘subgroup; 
CH:=CharacterTable(H) ; 
Induction(CH[2] ,G) eq CG[11]; 


/* true */ 


S:=Sym(8) ; 

xx:=8!(4, 8); 

yy Ho NGL 2s 8, 8) (AB Bh 
G:=sub<S|xx,yy>; 

G eq T[27]; 

/* true */ 


#G; 


for g,h in H do if H eq sub<H | g,h> then g,h 


A:=G!(2, 6); 


3 


end if; end for; 
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B:=G!(1, 3)(2, 8)(4, 6)(5, 7); 
C=Gi(1, 5) (@,.6) (3, 7), 8): 


D:=G!(2, 6)(4, 8); 


H1:=sub<G|A,B,C,D>; 
S:=Subgroups(G) ; 
H1 eq S[40] ‘subgroup; 


H1; 


CH1:=CharacterTable(H1) ; 


CH1i; 


/* Induce the Character CH1[2] up to the character CG[11] */ 
CH1 [2] ; 

fe oC By H15. 2g Sg Hl dy Shy dy Ty HT) 

CG[11]; 


/* ( 4, -4, 0, 0, =2 0, 2, 0, 0, 0, 0, 0, 0 ) */ 


/* we can do the following command for a quicker result */ 
I:=Induction( CH[2],G); 


I;/* ( 4, -4, 0, 0, =2; 0, 2, 0, 0, 0, 0, 0, 0 ) */ 


/* Now we can get the same result by hand: 


to do by hand we do the following: */ 
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C:=Classes(G) ; 


#C;/* 13 */ 


C[1]; /* <1, 1, Id(G)> , the first # is the order, 


second # is the # of elements , third # is a member of the class*/ 


C[2];/* <2, 1, (1, 5)(2, 6)(8, 7)(4, 8)>, the first # is the order, 
second # is the # of elements , third # is a member of the class.*/ 
C[3];/* <2, 2, (1, 5)(3, 7)>, the first # is the order, 

second # is the # of elements , third # is a member of the class. 
In this case, we have 2 elements of order 2. one of these 2 
elements is (15) (37)..we need all members of this class. 

This is how we obtain them: */ 

"C3=",Set(Class(G,C[3] [3])); /* the [3] comes from the 


element being in the third slot < ?7,?,(15) (37) > */ 


/* 
c3= { 
(2, 6) (4, 8), 
(1, 5)03, 7) 
}*/ 
Cl4]; 


/* <2; 4, (1, 3)(2, 8) (4, 6)(5, 7)>*/ 


"C4=",Set(Class(G,C[4] [3])); 


C(S5);/* <2, 4, (1, 5)> ¥/ 


"C5=",Set(Class(G,C{[5] [3])); 


Cl6];/* <2, 4, (1, 5) (4, 8)>*/ 


"C6=",Set(Class(G,C[6] [3])); 


CLA S/® $2545 (ly. BI TGs 8) >#/ 


"C7=",Set(Class(G,C[7] [3])); 


CL8] ;/* <4, 4, (1, 7, 5, 3) (2, 4, 6, 8) >*/ 


"C8=",Set(Class(G,C([8] [3])); 


CL9] ;/* <4, 8, (1, 2, 3, 8) (4, 5, 6; 7)>*/ 


"C9=",Set(Class(G,C[9] [3])); 


"C10=",Set (Class(G,C[10] [3])); 


C[11];/* <4, 8, (1, 7, 5, 3)(2, 8) (4, 6)>#/ 


"C11=",Set(Class(G,C[11] [3])); 


C[12] ;/* <8, 8, (1, 4, if; 6, 5, 8, 3, 2)>*/ 


"C12=",Set(Class(G,C[12] [3])); 
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C13] ;/* <8, 8, (1, 6, 3, 4, 5, 2, CS 8) >*/ 


"C13=",Set (Class(G,C[13] [3])); 


/*Let us now find the Classes of H.*/ 


D:=Classes(H) ; 


D; 


Dts. 7* Sly dy Ad) #/ 


"D1=",Set(Class(H,D[1] [3])); 


DL2)3/#<2 5. 15: 1 5°b) 25° 6) (3 y. “OA, 8) >*/ 


D[3] ;/*<2, 1, (2, 6)(4, 8)>*/ 


D[4];/*<2, 1, (1, 5) (3, 7)>*/ 


D[5] ;/*<2, 2, (1, 3)(2, 8)(4, 6)(5, 7)>*/ 


"D5=",Set (Class (H,D[5] [3])); 


D(6] ;/*<2, 2, (1, 7)(2, 4)(3, 5)(6, 8)>*/ 


"D6=",Set (Class (H,D[6] [3])); 


D(7];/* <2, 2, (2, 6)> */ 
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"D7=",Set (Class (H,D[7] [3])); 


DiS]; /* <2, 2, (1, -6)(3,.°7) (4s 8) >¥/ 


"D8=",Set (Class (H,D[8] [3])); 


D[9];/* <4, 2, (1, 3)(2, 4, 6, 8)(5, 7)>*/ 


"D9=",Set (Class (H,D[9] [3])); 


D(W)] 3 /* <4, 2, (15 7) C2585. 6,-4) , 5)> 47 


"D10=",Set (Class (H,D[10] [3])); 


CH1:=CharacterTable(H1) ; 


CH1i; 


T:=Transversal (G,H1); 
#T; 4, /* 4, since #G/#H=64/16=4 , hence we will have 4x4 matrices*/ 


ile} 


/*First we find A(xx).*/ 

/*Our 4x4 matrix for xx (A(xx)) is: 
TixxT1i°-1 TixxT2*-1 TixxT3°-1 TixxT47-1 
T2xxT1°-1 T2xxT27-1 T2xxT3°-1 T2xxT4°-1 
T3xxT1°-1 T3xxT27-1 T3xxT3°-1 T3xxT47-1 


T4xxT1°-1 T4xxT27-1 T4xxT3°-1 T4xxT4°-1 
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*/ 

/* this is the version he showed in class to find perm of A */ 
Ti] *xx*T[1]°-1 in H;/* true*/ 

Ti] *xx*T[2]°-1 in H;/* false */ 

T(1] *xx*T[3]*-1 in H;/* false */ 


Ti] *xx*T[4]°-1 in H;/* false */ 


T[i]*xx*T[1]*-1; /* (4, 8) ¥*/ 
CH[2] (H!(4, 8));/* -1 */ 


/* so the first row is [-1,0,0,0] 


T([2]*xx*T[1]°-1 in H;/* false */ 
T[2]*xx*T[2]°-1 in H;/* false */ 
T([2]*xx*T[3]°-1 in H;/* true*/ 


T[2]*xx*T[4]°-1 in H;/* false */ 


T [2] *xx*T[3]7-1; /* Id(H) */ 
CH[2] (H!Id(H)) ;/* 1 */ 


/* so the second row is [0,1,0,0] 


T(3]*xx*T[1]*-1 in H;/* false */ 
T(3] *xx*T[2]*-1 in H;/* true*/ 
T(3]*xx*T[3]*-1 in H;/* false */ 


T(3] *xx*T[4]*-1 in H;/* false */ 
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T [3] *xx*T [2] *-1;/* Id(H)*/ 
CH[2] (H!Id(H)) ;/* 1 */ 


/* so the third row is [0,0,1,0] 


T(4] *xx*T[1]°-1 in H;/* false */ 
T([4] *xx*T[2]°-1 in H;/* false */ 
T(4] *xx*T[3]°-1 in H;/* false */ 


T(4] *xx*T[4]°-1 in H;/* true*/ 


T(4] *xx*T[4]°-1;/* (2,6) */ 
CH[2] (H!(2,6));/* -1 */ 


/* so the third row is [0,0,0,-1] 


for iin [1..4] do if T[1]*xx*T[i]*-1 in H then i; end if; end for; 
/* 1 , this means we will take i=1, CH[2]xxT1. Now we figure out 
what perm T[1] is */ 


CH[2] (T[1] *xx*T[1]*-1);/* -1, this means my first row of matrix is (-1,0,0,0). 


Now , we check the second row: */ 

for iin [1..4] do if T[2]*xx*T[i]*-1 in H then i; end if; end for; 
/*3, this means we will take i=3, CH[2]xxT3*/ 

CH[2] (T[2] *xx*T[3]*-1);/* 1 , this means the second row 


of the matrix is (0,1,0,0) . we continue this same process for rows 3 &4 */ 
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/* this is a shortcut */ 

CF :=CyclotomicField(3);/* cycl field is 3 since our field is 3 */ 
GG:=GL(4,CF); /* the four comes from our dim size */ 
AA:=[(CF.1,0,0,0] : i in [1..4]]; 

for i ,j in [1..4] do AA[i,j]:=0; end for; 

for i,j in [1..4] do if T[i]*xx*T[j]“-1 in H1 then 
AALi,j]:=CH1(2] (TLi]*xx*T[j]*-1); end if; end for; 
BBe=L(GF.150;0,0) Sain fls.41d 

for i ,j in [1..4] do BB[i,j]:=0; end for; 

for i,j in [1..4] do if Tli]*yy*T[j]°-1 in H1 then 
BB[i, j] :=CH1([2] (TLi] *yy*T[j]*-1); end if; end for; 


GG!AA; GG!BB; 


Order (GG!AA); Order (xx); 


Order (GG! BB) ; Order (yy) ; 


HH :=sub<GG|AA,BB>; 


IsIsomorphic(HH,G) ; 


GG:=GL(4,GF(3)); 


GG! AA; 


GG! BB; 
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S:=Sym(8) ; 

Aper:=S!(1, 5)(2, 3)(4, 8)(6, 7); 
Bper:=S!(1,2,5,6) (3,4) (7,8); 

HH: =sub<S | Aper , Bper>; 
w:=IsIsomorphic (HH,G) ; 


W; 


/* need to check this once I include GG!AA & GG!BB in magma*/ 
Order (Aper) eq Order(GG!AA);/* true */ 

Order (Aper) eq Order(xx);/* true */ 

Order (Bper) eq Order (GG!BB);/* true */ 


Order (Bper) eq Order(yy);/* true */ 


IsIsomorphic(sub<S|Aper,Bper>,sub<GG|GG!AA,GG!BB>) ;/* true Mapping 

from: GrpPerm: $, Degree 8, Order 2°6 to MatrixGroup(4, GF(3)) of order 276 
Composition of Mapping from: GrpPerm: $, Degree 8, Order 2°6 to GrpPC and 
Mapping from: GrpPC to GrpPC and 


Mapping from: GrpPC to MatrixGroup(4, GF(3)) of order 276 */ 


CompositionFactors (G) ; 


>NL:=NormalLattice(G) ; 


>NL; 
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> for i in [1..#NL] do if IsAbelian(NL[i]) then i; end if; end for; 


> X:=AbelianGroup(GrpPerm, [2,2,2,2]); 
> s,t:=IsIsomorphic(NL[8] ,X); 

> s5t; 

> NL[8]; 

>A:=G!(2, 6); 

>B:=G!(1, 5)(4, 8); 

>C:=G!(2, 6) (4, 8); 


>D:=G!(2, 6)(3, 7); 


NL[8] eq sub<G|A,B,C,D>; /*true */ 

NL8 :=sub<G|A,B,C,D>; 
H<a,b,c,d>:=Group<a,b,c,dla°2,b°2,c°2,d°2, (a,b), 
(a,c), (ad), o;0) , (b3d).; (c,d) >; 

#H;/* 16 */ 

f ,H1,k:=CosetAction(H, sub<H|Id(H)>); 
wi:=IsIsomorphic(H1,NL[8]); 

wi; 

q,ff:=quo<G|NL[8]>; 


q; 


nl:=NormalLattice(q) ; 
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nl; 


for iin [1..#nl1] do if IsAbelian(nl[i]) then i; end if; end for; 


S:=Sym(8) ; 


xx:=S!(1, 5)(2, 3)(4, 8)(6, 7); 


yy:=S!(1,2,5,6) (3,4) (7,8); 


N:=sub<S|xx,yy>; 


#N; 


FPGroup (N) ; 


NN<a,b>:=Group<a,b|a*2,b74, (b*a*b*-1*a) “2, 


(b*-1 * a * b°-2 * a * D°2 * a * DTQ * a * D7-1)>; HNN; / *64%/ 


Now to build progenitor: 


Nt:=Stabilizer(N,{1,5}); 


#Nt ; /*16*/ 


Nt; 


/* Permutation group Nt acting on a set of cardinality 12 


Order = 16 = 274 
2 S565 148) 
(3, 7), 8) 
(1, 5)(2, 3)(4, 8)(6, 7) 


*/ 


word: =function (A) 
Sch:=SchreierSystem(NN,sub<NN|Id(NN)>) ; 
for iin [2..#NN] do 

Pr=[Td(N)* 1 ine (1..#8ch[i)]]s 


for j in [1..#Sch[i]] do 


if Eltseq(Sch[i])[j] eq 1 then P[j]:=xx; end 
if Eltseq(Sch[i])[j] eq -1 then P[j]:=xx*-1; 
if Eltseq(Sch[i])[j] eq 2 then P[j]:=yy; end 


if Eltseq(Sch[i])[j] eq -2 then P[j]:=yy*-1; 


end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

if A eq PP then B:=Sch[i]; end if; 
end for; 

return B; 


end function; 


if; 
end 
if; 


end 
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if; 


if; 
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for g,h in N do if N eq sub<N | g,h> then g,h; break; end if; 
break; end for; /* nothing came out so means we need to use all three 


generators */ 


A:=N!(2, 3, 6, 7)(4, 8); 
B:=N! (3, 7)(4, 8); 


C:=N! (1, 5)(2, 3)(4, 8)(6, 7); 


word(A); /* a * b°2 */ /*this means x * y72 */ 
word (B) ; 


word(C) ; 


/* now we want to check what t commutes with A,B,C*/ 


17A; 

/* 1, so we will write (t,A) or we can say t7A=t */ 

17B; 

/* 1, so we will write (t,B) or we can say t*B=t */ 

1G: 

/* 5, so we will write t~C=t5 but t5=t1°2 when we looking at 


our labeling of t_i’s, so 


we can say t~C=t°2 */ 


G<x,y,t>:=Group<x,y,t| x°2,y74, (y*x*y*-1*x)°2, 
(y*-Lex*y*-24x*y"Q*ex*y*Qex*y7-1), 

t73, 

(t, x*y72), 

(t , x*y*exey*exty*exty?—-1) , 

t°x=t72 >; 

Testing the mono progenitor - Grindstaff Lemma 
S:=Sym(8) ; 

xxx:=S!(1, 5)(2, 3)(4, 8)(6, 7); 


yyy :=S!(1,2,5,6) (3,4) (7,8); 


GGG: =sub<S|xxx,yyy>; 


#GGG;/*64 */ 


Stabilizer (GGG,1); 


Orbits (Stabilizer(GGG,1)); 


/* we do this loop to see what our perms are: */ 


temp:={5,4,2}; 


for n in N do for j in temp do if 1°n eq j then word(n),j; 
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temp:=temp diff {j}; end if; end for; end for; 


beaxb4 


this implies that 1°xx eq 5 */ 


1° xxs 
/* 5 , so we can rewrite as (t, t°x) */ 
1“yy; 
/* 2 , so we can rewrite as (t, t*y) */ 


1*(yy * xx * yy); /* 4, , so we can rewrite as (t, t7 (y*x*y)) */ 


G<x,y,t>:=Group<x,y,t|x°2,y4, (y*x*y7-1*x)°2, 
(y*-L#x*y"-24x*y"2Q*x*y*2Q*ex*y7-1), 
t°3, (t, x*y72), (t, x*y*x*y*xeyexey7-1), t°x=t72, 


be, ty Cty toy) a Ce. bps) > 


/* #Group eq Index=3°4 * #G=64 =5184*/ 


Index(G,sub<Glx,y>); /* 81 */ 
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3°4; /* 81*/ 


81*64; /* 5184 */ 


#G; 


C:=Classes(N) ; 


C; 


for i in [2..#C] do i, C[i][3]; word(Cc[i] [3]); 


Orbits (Centraliser(N,C[i][3])); end for; 


for j in [2..#N] do for i in [1..#Setseq(Set(N))] do 
if 1°Setseq(Set(N)) [i] eq j then j,word(Setseq(Set(N))[il]) ; 


break; end if; end for; end for; 


174 


Appendix E 


MAGMA CODE for 


Semi-direct of (7+ : 4’) 


N:=TransitiveGroup(28, 500); 
#N; 


N; 
S:=Sym(28) ; 


xx:=S!(1, 14, 17, 27, 7, 9, 20, 22, 6, 11, 16, 24, 

5, 13, 19, 26, 4, 8, 15, 28, 3,10, 18, 23, 2, 12, 21, 25); 
yy:=S!(1, 28, 5, 22)(2, 23, 4, 27)(3, 25)(6, 24, 

7, 26)(8, 16)(9, 21, 14, 18)(10,19, 13, 20)(11, 17, 12, 15); 


CompositionFactors(N) ; 
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NL:=NormalLattice(N) ; 


NL; 


for iin [1..#NL] do if IsAbelian(NL[i]) then i; end if; end for; 


NL[7]; 


A:=N!(22,27,25,23,28,26,24) ; 

B:=N!(15, 17, 19, 21, 16, 18, 20)(22, 28, 27, 26, 25, 24, 23); 
Crs ICS, 11, 14, 20, 134 29,12) (22; 26, 28; 24, 275. 23, 26)4 
D:=N!(1, 7, 6, 5, 4, 3, 2)(8, 11, 14, 10, 13, 9, 12)(15, 18, 


21, 17, 20, 16, 19)(22, 25, 28, 24, 27, 23, 26); 


IsIsomorphic(NL[7] , AbelianGroup(GrpPerm, [7,7,7,7])); 


X:=AbelianGroup(GrpPerm, [7,7,7,7]); 


s:=IsIsomorphic(NL[7] ,X); 


8; 


FPGroup(NL[7]) ; 


q, ff:=quo<N|NL[7]>; 


q; 


#q; 
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/* 16 */ 


N/NL[7]; 


nl:=NormalLattice(q); nl; 


for iin [1..#nl] do if IsAbelian(nl[i]) then i;end if;end for; 


n1[10]; 


FPGroup(q) ; 


F<e,f>:=Group<e,fle"4,f°4, (e*-1 * £°-1)°2,(e * £°-1)°2>; 


£1,F1,k:=CosetAction(F,sub<F|Id(F)>); 


IsIsomorphic(Fi,q) ; 


T:=Transversal (N,NL[7]); 
f£(T[2]) eq q.1; 

/*true */ 

f£i(T(3),) eq q.2; 


/* true */ 


A°T[2]; /* (1, 2, 3, 4, 5, 6, 7)*/ 

B°T([2];/* (1, 5, 2, 6, 3, 7, 4)(22, 28, 27, 26, 25, 24, 23)*/ 
Co Ti2igyeCls 35. S577, 2e Ab) 1b, 16, Ty 18,195: 205. 2147 

D°T([2];/*(1, 3, 5, 7, 2, 4, 6)(8, 10, 12, 14, 9, 11, 13)(45, 


16, 17, 18, 19, 20, 21)(22, 24, 26, 28, 23, 25, 27)*/ 


AST [SIs J# C1525, 35-4,. 5364 1) */ 

B°T[3]; /*(1, 5, 2, 6, 3, 7, 4)(8, 9, 10, 11, 12, 13, 14)*/ 
C°T[3]; /*(1, 3, 5, 7, 2, 4, 6)(15, 16, 17, 18, 19, 20, 21)*/ 
D°T[3]; /*(1, 3, 5, 7, 2, 4, 6)(8, 13, 11, 9, 14, 12, 10) (15, 


16, 17, 18, 19, 20, 21)(22, 27, 25, 23, 28, 26, 24)*/ 


> for i,j,k,1 in [1..7] do if N!(1, 3, 5, 7, 2, 4, 6) 

(8, 10, 12, 14, 9, 11, 13)(15,16, 17, 18, 19, 20, 21)(22, 24, 
26, 28, 23, 25, 27) eq A~i*B7j*C°k*D°l then i,j,k,1; end 
if; end for; 

7755 

> A°T[2] eq A*B75*C*D6; 

true 

> B°T[2] eq A*B~6*C~4*D°3; 

true 

> C°T[2] eq C7 2*D*5; 

true 


> D°T[2] eq C75*D75; 
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true 

> for i,j,k,1 in [1..7] do if N!(1, 2, 3, 4, 5, 6, 7) 

eq A7i*B7j*C7k*D71 then i,j,k,1; end if; end for; 

1516 

> for i,j,k,1 in [1..7] do if N!(1, 5, 2, 6, 3, 7, 4) 

(8, 9, 10, 11, 12, 13, 14) eq A*i*B*j*C°k*D°1 then i,j, 
k,l; end if; end for; 

1623 

> for i,j,k,1 in [1..7] do if N!(1, 3, 5, 7, 2, 4, 6) 
(15, 16, 17, 18, 19, 20, 21) eq A*i*B*j*C“k*D*1 then 
i,j,k,1; end if; end for; 

7725 

> for i,j,k,1 in [1..7] do if N!(1, 3, 5, 7, 2, 4, 6) 

(8, 13, 11, 9, 14, 12, 10)(15,16, 17, 18, 19, 20, 21) (22, 
27, 25, 23, 28, 26, 24) eq A*i*B°j*C°k*D°1 then i,j,k,1; 
end if; end for; 

7765 

> A°T[3] eq A*B*5*C*D°6; B°T[3] eq A*B~6*C72*D°3; C°T([3] 
eq C°2*D*5; D°T[3] eq C°~6*B*5; 

true 

true 

true 

false 


> A°T[3] eq A*B*5*C*D°6; B°T[3] eq A*B~6*C72*D°3; C°T([3] 
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eq C°2*D75; D°T[3] eq C76*D*5; 

true 

true 

true 

true 

> Exa,b,c,d,e,f>:=Group<a,b,c,d,e,fla°7,b°7,c°7,da°7, (a,b), 

> (a,c), (b,c), (a,d), (b,d), (c,d),e°4,f*4, (e*-1 * £°-1)°2,(e * f*-1)°2, 
> a-e=axb7~5*c*d76, b e=a*b~6*c74*d73,c7~e=c72*d75, d°e=c75*d75, 

> a°f=axb75*c*d°6, b°f=a*b76*c72*d73, c°f=c72*d75, d°f=c"6*d75>; 
> #E; #N; 

38416 

38416 

> £,N1,k:=CosetAction(E,sub<E|Id(E)>) ; 


> IsIsomorphic(N1,N) ; 
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Appendix F 


MAGMA CODE for Mixed 


Extension of (2° :* $4) 


S:=Sym(96) ; 
xx:=S!(1, 86, 25, 96)(2, 51, 40, 54)(3, 73, 60, 77)(4, 78, 
67, 70)(5, 85, 7, 88)(6, 87, 28, 64)(8, 17, 72, 58)(9, 90, 
82, 55)(10, 14, 12, 92)(11, 89, 39, 71) (13, 22, 76, 69) (15, 
75, 65, 80)(16, 41, 19, 79)(18, 74, 68, 35)(20, 33, 57, 84) 
(21, 48, 23, 47) (24, 95, 29, 45)(26, 31, 62, 34)(27, 46, 66, 
49) (30, 59, 32, 56)(36, 53, 38, 50)(37, 91, 81, 52)(42, 61, 
44, 94)(43, 93, 83, 63); 
yy:=S!(1, 3, 14)(2, 8, 13)(4, 20, 51)(5, 15, 55)(6, 26, 71) 
(7, 19, 54)(9, 35, 46)(10, 30, 64) (11, 41, 70)(12, 34, 49) (16, 
50, 21) (17, 61, 29)(18, 63, 24)(22, 68, 89)(23, 65, 92) (25, 57, 


53) (27, 59, 94)(28, 56, 52)(31, 45, 36)(32, 76, 38)(33, 78, 
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43) (37, 80, 47)(39, 75, 96)(40, 74, 95)(42, 84, 85)(44, 77, 48) 
(58, 91, 69) (60, 90, 67) (62, 93, 66)(72, 87, 82)(73, 86, 83)(79, 
88, 81); 

N:=sub<S|xx,yy>; 


#N; 


CompositionFactors(N) ; 


NL:=NormalLattice(N) ; 


NL; 


for iin [1..#NL] do if IsAbelian(NL[i]) then i;end if; end for; 


NL[4] ; 


X:=AbelianGroup(GrpPerm, [2,2,2]); 
IsIsomorphic(NL[4] ,X); 


/* true */ 


/* hence, a presentation for NL[4] is as follows */ 
H<a,b,c>:=Group<a,b,cla°2,b°2,c°2, (a,b), (a,c), (b,c)>; 
f ,H1,k:=CosetAction(H, sub<H|Id(H)>); 
w:=IsIsomorphic(H1,NL[4]); 


w;/* true *//* verified our presentation of NL[4]*/ 
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/* step 6: look at NL again */ 

/* We factor out N by NL[4]. Thus, N is a mixed extension of NL[4] by N/NL[4]*/ 
q,ff:=quo<N|NL[4]>; 

qa; 

/* 

Permutation group q acting on a set of cardinality 4 

Order = 24 = 2°73 * 3 

(1, 2) 

(25: 35 4) 


aA 


FPGroup (q) ; 
/* 
Finitely presented group on 2 generators 
Relations 
$.1°2 = Id($) 
$.2°3 = Id($) 
($.27-1 * $.1)7°4 = Id($) 


*/ 


T:=Transversal (N,NL[4]); 


#T;/* 24 */ 


ff(T[2]) eq q.1; 
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/* true */ 

ff(T[3]) eq q.2; 

/* true */ 

ff(T[3]*-1*T[2]) eq q.2°-1*q.1; 


/* true */ 


/* The generators of gq=NL[4]=( <A>, <B>, <C> ) */ 

A:=N!(1, 5)(2, 10)(3, 16)(4, 21)(6, 24)(7, 25)(8, 31) (9, 

36) (11, 42)(12, 40)(13, 46) (14, 51) (15, 20)(17, 62) (18, 59) 

(19, 60)(22, 66)(23, 67) (26, 58)(27, 69) (28, 29)(30, 35) (32, 

74) (33, 75) (34, 72) (37, 83) (38, 82)(39, 44)(41, 73) (43, 81) 

(45, 64) (47, 70) (48, 78) (49, 76) (50, 55) (52, 93)(53, 90) (54, 

92) (56, 68) (57, 65)(61, 89)(63, 91)(71, 94)(77, 79) (80, 84) (85, 
86) (87, 95) (88, 96); 

BrsN'G, 238)(2,°38)(3,. 57) (4, 713.67) Gy 22) 8, 74), 12):410,; 
82)(11, 43)(13, 87) (14, 90) (15, 19)(16, 65)(17, 18)(20, 60) (21, 
25) (24, 66)(26, 56)(27, 29)(28, 69)(30, 34)(31, 32)(33, 73) (35, 
72) (36, 40)(37, 44)(39, 83)(41, 75)(42, 81)(45, 49) (46, 95) (47, 
96) (48, 86) (50, 54) (51, 53)(52, 94)(55, 92) (58, 68) (59, 62) (61, 
91) (63, 89) (64, 76)(70, 88)(71, 93)(77, 84)(78, 85)(79, 80); 
C:=N!(1, 7)(2, 12)(3, 19)(4, 23)(5, 25)(6, 29)(8, 34)(9, 38) (10, 
40) (11, 44)(13, 49) (14, 54) (15, 57) (16, 60)(17, 26) (18, 56) (20, 


65) (21, 67) (22, 27)(24, 28)(30, 74) (31, 72) (32, 35) (33, 80) (36, 
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82) (37, 43) (39, 42)(41, 77) (45, 87) (46, 76) (47, 78) (48, 70) (50, 
90) (51, 92)(52, 63)(53, 55)(58, 62)(59, 68)(61, 71) (64, 95) (66, 


69) (73, 79)(75, 84)(81, 83)(85, 96)(86, 88)(89, 94)(91, 93); 


NL4:=sub<N|A,B,C>; 
X:=AbelianGroup(GrpPerm, [2,2,2]); 
IsIsomorphic(NL[4] ,X); 


/* true */ 


f ,H1,k:=CosetAction(H, sub<H|Id(H) >); 
IsIsomorphic(H1,NL[4]); 


/* true *//* verified our presentation of NL[4]*/ 


for i,j,k in [0..1] do i,j,k; end for; 


/* N/NL([4]=<NL[4]D, NL([4]E>. N/NL[4]=(<A>D, <B>D, <C>D, <A>E, <B>E, <C>E). 


Now, conjugate every generator of NL[4] by D and E. */ 


/* we need this to label our T2, T3*/ 


T([2]; 


T(3]; 


T2:=N!(1, 86, 25, 96)(2, 51, 40, 54)(3, 73, 60, 77)(4, 78, 67, 70) (5, 


85, 7,88) (6,87, 28, 64)(8, 17, 72, 58)(9, 90, 82, 55)(10, 14, 12, 92) 


(11, 89, 39, 
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71) (13, 22, 76, 69)(15, 75, 65, 80)(16, 41, 19, 79) (18, 


74, 68, 35) (20,33,57, 84)(21, 48, 23, 47)(24, 95, 29, 45)(26, 31, 62, 


34) (27, 46, 66, 49)(30,59, 32, 56) (36, 53, 38, 50)(37, 91, 81, 52) (42, 


61, 44, 94) (43, 93, 83,63); 


T3:=N!(1, 3% 14) (2, 8, 13) (4, 20, 51) (5, 15, 55) (6, 26, 71) (7, 19, 


(9, 35, 46)(10,30, 64) (11, 41, 70)(12, 34, 49)(16, 50, 21)(17, 61, 


(18, 63, 24) (22,68,89) (23, 65, 92)(25, 57, 53)(27, 59, 94)(28, 56, 


(31, 45, 36)(32, 76,38) (33, 78, 43) (37, 80, 47) (39,75, 96) (40, 74, 


(42, 84, 85) (44, 


(73, 86, 83)(79, 


for i,j,k in [0.. 


/* 100 */ 
for i,j,k in 
/* O11 */ 
for i,j,k in 
/* 111 */ 
for i,j,k in 
/* 110 */ 
for i,j,k in 
/* 00 1 */ 
for i,j,k in 


/* 00 1 */ 


[O. 


[O. 


[O. 


[O. 


EO: 


77,48) (58, 91, 69) (60, 90, 67) (62, 93, 66) (72,87, 


88,81); 


1] 


ae 


a 


st) 


.1) 


bi 


do 


do 


do 


do 


do 


do 


if 


if 


if 


i 


it 


if 


A°T2 


A“T3 


B°T2 


B°T3 


C°T2 


C°T3 


eq A7i*B7j*C*k 


eq A7i*B7j*C*k 


eq A7i*B7j*C*k 


eq A7i*B7j*C7k 


eq A7i*B7j*C*k 


eq A7i*B7j*C7k 


then 


then 


then 


then 


then 


then 


i,j,k; 


i,j,k; 


i,j,k; 


i,j,k; 


i,j,k; 


i,j,k; 


end 


end 


end 


end 


end 


end 


if; 


if; 


if; 


if; 


if; 


if; 


54) 


29) 


52) 


95) 


82) 


end 


end 


end 


end 


end 


end 


for; 


for; 


for; 


for; 


for; 


for; 
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/* hence, the presentation for N/NL[4] is: */ 
H<a,b,c,d,e>:=Group<a,b,c,d,ela°2,b°2,c°2,d°2,e°3, (e°-1*d) “4, 
(a,b), (a,c), (b,c), a°d=a,a*e=b*c, b*d=axb*c, b*e=axb,c*d=c,c*e=c>; 
#H; 


/* 192 */ 


f ,H1,k:=CosetAction(H, sub<H|Id(H)>); 

IsIsomorphic(N,H1) ; 

/* false *//* this tells us N is not semi-direct 2°3:q but the mixed 
extension of 2°3 by q. That means, one of our new generators (from q) 


must be further investigated*/ 


Order (T[2]) eq Order(q.1); 

/* true */ 

Order (T[3]) eq Order(q.2); 

/* true */ 

Order (T[2]*-1*T[3]) eq Order(q.2*-1*q.1); 


/* false */ 


(T[3] *-1*T[2]) 74; 
J<a,b,c,d,e>:=Group<a,b,c,d,ela~2,b°2,c°2,d°2,e°3, (e*-1*d) “4=c, 
(a,b), (a,c),(b,c), a°d=a,a*e=b*c, b*d=axb*c, b*e=axb,c*d=c,c*e=c>; 


#J; 


187 


/* 192*/ 


f,J1,k:=CosetAction(J,sub<J|Id(J)>); 
wm:=IsIsomorphic(N,J1); 


wm ; 


q,ff:=quo<N|NL[4]>; 


q; 


nL:=NormalLattice(q); nL; 


for iin [1..#nL] do if IsAbelian(nL[i]) then i;end if; end for; 


nL [2]; 


X:=AbelianGroup(GrpPerm, [2,2]); 


s,t:=IsIsomorphic(nL[2] ,X); 


8; 


CompositionFactors (nL[2]) ; 


IsIsomorphic(q,Sym(4)) ; 
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Appendix G 


MAGMA CODE Construction 
of A7 over PSL(2,7) 


S:=Sym(6) ; 

extSS C1 By -5).C2,. “4, -6)% 

yys=s! (1,6), 5) (3) 4)5 

N:=sub<S|xx,yy>; 
G<x,y,t>:=Group<x,y,t|x°3,y°2, (x*y)72,t°3,t* (x*y)=t°2, 
(x¥t) 74, (xeyet) 72, Cxeyet xet Q4t “y* (t7x)) 73>; 

#N; 


/* 6 */ 


for iin [0..2] do for j in [0..1] do printf "%o", i;j,xx*i*yy7j; 


end for; end for; 
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f ,G1,k:=CosetAction(G,sub<G|x,y>); 
#G1; 
/* 168 */ 


CompositionFactors (G1) ; 

IN:=sub<G1ilf(x),f(y)>; 

ts =) [ Ta(ety+-a.'am, [a6 ) 

ts[1]:=£(t); ts[2]:=£((t*(y))*x); ts[3]:=f(t*(x)); ts[4]:=ts[1]7-1; 


ts[5] :=ts[2]*-1;ts[6]:=ts[3]°-1; 


#DoubleCosets(G,sub<G|x,y>, sub<Glx,y>); 


/* 7 */ 


DoubleCosets(G,sub<Glx,y>, sub<G|x,y>); 


DC:=[ f( Id(G)), f(t), f(t *x*t), f(t *y*t ), 


f(t * y* t7-1), £0 t * x * t7-1), f(t * x * t7-1 * y * t7-1~Od; 


Index (G1,IN); 


/* 28 */ 


word: =function (A) 


Sch:=SchreierSystem(G,sub<G|Id(G)>) ; 


190 


B:=Id(G) ; 

for i in [2..#G] do 

P:=[Id(G1): 1 in [1..#Sch[i]]]; 

for j in [1..#Sch[i]] do 

if Eltseq(Sch[i])[j] eq 1 then P[j]:=f(x); end if; 

if Eltseq(Sch[i])[j] eq -1 then P[j]:=f(x)*-1; end if; 
if Eltseq(Sch[i])[j] eq 2 then P[j]:=f(y); end if; 

if Eltseq(Sch[i])[j] eq 3 then P[j]:=f(t); end if; 

if Eltseq(Sch[i])[j] eq -3 then P[j]:=f(t)*-1; end if; 
end for; 

PP:=Id(G1) ; 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

if A eq PP then B:=Sch[i]; end if; 

end for; 

return B; 


end function; 


cst := [mull : i in [1 ..Index(G1,IN)]] where null is 
[Integers() | ]; 

prodim := function(pt, Q, I) 

v i= pt; 

for i in I do 


v := v7 (QLil); 


end for; 
return v; 
end function; 
for i := 1 to 6 do 
cst[prodim(1, ts, [i])] := [4]; 


end for; 


m:=0; for iin [1..28] do if cst[i] ne [] then 


m:=mt+1; end if; end for; m; 


/* 6 */ 


Orbits(N) ; 


for iin [1..#DC] do for m,n in IN do if ts[1] eq 


m*(DC[i])“n then i; break; end if; end for; end for; 


/* 2 */ 


N1i:=Stabiliser(N,1); 


Generators (N1) ; 


Orbits(N1); 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[1] 


eq m*(DC[i])“n then i; break; end if; end for;end for; 
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for m,n in IN do if ts[1]*ts[1] eq m*(ts[1])“n then 


word(m); word(n); end if; end for; 


xx*yy; 


ts[1]*ts[1] eq ts[4]; 


/* true */ 


for n in N do if 4°n eq 1 then n; end if; end for; 


/* (1, 4)(2, 3)65, 6) ¥/ 


for iin [1..#DC] do for m,n in IN 
then i; break; end if; end for;end 
/* 6 */ /* new */ 

for iin [1..#DC] do for m,n in IN 
then i; break; end if; end for;end 
/* 5 *//* new */ 

for iin [1..#DC] do for m,n in IN 
then i; break; end if; end for;end 
/* 1 */ /* goes back */ 

for iin [1..#DC] do for m,n in IN 
then i; break; end if; end for;end 
/* 3 *//* new */ 


for iin [1..#DC] do for m,n in IN 


do if 


for; 


do if 


for; 


do if 


for; 


do if 


for; 


do if 


ts[1]*ts [2] 


ts[1]*ts [3] 


ts[1]*ts [4] 


ts[1]*ts [5] 


ts[1]*ts [6] 


eq 


eq 


eq 


eq 


eq 
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m*(DC[i])7*n 


m*(DC[i])*n 


m*(DC[i])7n 


m*(DC[i])7n 


m*(DC[i])*n 
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then i; break; end if; end for;end for; 


/* 4 *//* new */ 


/*DOING NEW COSET (Nt1it2)*/ 
S:={[1,2]}; 


SS:=S7N;SS; 


SSS :=Setseq (SS) ; 

for i in [1..#SSS] do 

for g in IN do if ts[1]*ts[2] 

eq g*ts[Rep(SSS [i] ) [1] ] *ts[Rep(SSS [i] ) [2]] 
then print SSS[i]; 

end if; end for; end for; 


/* 


Peet ees 


N12:=Stabiliser(N, [1,2]); 
#N12; 

fe Lay 

N1i2s:=N12; 


for n in N do if [1,2]“n eq [1,2] then N12s:=sub<N|N12s,n>; end if; end for; 
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#N12s; 
/* 1*/ 
Generators (N12s) ; 
/* { } 
*/ 
[1,2]-N12s; 
/* 
GSet{@ 

bag 2 
@} 
*/ 


tri:=Transversal (N,N12s); 

for i:=1 to #tri do 

ss:=[1,2]“trilil; 

cst [prodim(1,ts,ss)]:=ss; 

end for; 

m:=0; for i in [1..28] do if cst[i] ne [J 
then m:=mt1; 

end if; end for;m; 


pe 12h 


Orbits(N12s) ; 


/* 
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[ 
GSet{@ 1 @}, 
GSet{@ 2 @}, 
GSet{@ 3 @}, 
GSet{@ 4 @}, 
GSet{@ 5 @}, 
GSet{@ 6 @} 

] 

*/ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[1] eq m*(DCLi])“n 
then i; break; end if; end for;end for; 

/*7 */ /* new coset*/ 

for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[2] eq m*(DCLi])“n 
then i; break; break;end if; end for;end for; 

/* 3 */ /* goes to Ntit5*/ 

for m,n in IN do if ts[1]*ts[2]*ts[2] eq m*(ts[1]*ts[5] )“n then word(m); 
word(n); end if; end for; 

/* 

Id(G) 

Id(G) 

/* 

ts[1]*ts[2]*ts[2] eq £(1d(G))*ts[1] *ts[5]; 


/* true */ 
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for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[3] eq m*(DCLi])“n 
then i; break; break;end if; end for;end for; 

/* 3*//* goes to Nt1it5*/ 

for m,n in IN do if ts[1]*ts[2]*ts[3] eq m*(ts[1]*ts[5])“n then word(m) ; 
word(n); end if; end for; 


/* 


yy; 
/* (1, 6)(2, 5)(3, 4) 


tit2t3=tit5°-{(1, 6) (2, 5)(3, 4)=té6t2 */ 


ts[1]*ts[2]*ts[3] eq f(y*x)*(ts[6]*ts[2]); 


/*true*/ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[4] eq m*(DCLi])“n 
then i; break; break;end if; end for;end for; 

/* 4*x/ /* goes to Nt1it6*/ 

for m,n in IN do if ts[1]*ts[2]*ts[4] eq m*(ts[1]*ts[6])“n then word(m) ; 
word(n); end if; end for; 

/* 


y 
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XX*VY 5 
/* 
(1,4) (2, 3)(5, 6) 


tit2t4=tit6*(1, 4) (2, 3)(5, 6)=t4t5 */ 


ts[1]*ts[2]*ts[4] eq f(y)*ts[4]*ts[5]; 


/*true */ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[5] eq m*(DCLi])“n 
then i; break; break;end if; end for;end for; 

/* 2*/ .* goes back to Nt1 */ 

for m,n in IN do if ts[1]*ts[2]*ts[5] eq m*(ts[1])“n then word(m); 
word(n); end if; end for; 

/* 

Id(G) 

Id(G) 

*/ 

/* 

Id(G) 


tit2t5=t1-Id(G)=t1 */ 


ts[1]*ts[2]*ts[5] eq f(Id(G))*ts[1]; 
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/*true */ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[6] eq m*(DCLi])“n 
then i; break; break;end if; end for;end for; 

/* 6 */ /* loops Ntit2*/ 

for m,n in IN do if ts[1]*ts[2]*ts[6] eq m*(ts[1]*ts[2])“n then word(m) 
; word(n); end if; end for; 


/* 


VY*XX; 
/* 
C1). 2708406) (4,5) 


tit2t6=tit27*(1, 2)(3, 6) (4, 5)=t2t1 */ 


ts[1]*ts[2]*ts[6] eq f(x*-1)*ts[2]*ts[1]; 


/*true */ 
/*DOING NEW COSET (Nt1it3)*/ 
S:={[1, 3]}; 


SS:=S7N;SS; 


SSS :=Setseq (SS) ; 


for i in [1..#SSS] do 

for g in IN do if ts[1]*ts[3] 

eq g*ts[Rep(SSS[i] ) [1]]*ts[Rep(SSS [i] ) [2]] 
then print SSS[i]; 

end if; end for; end for; 


/* 


es oe oe 


C4, 2] 


N13:=Stabiliser(N, [1,3]); 

#N13; 

ae ed 

N13s:=N13; 

for n in N do if [1,3]“n eq [4,2] then 
N13s:=sub<N|N13s,n>; end if; end for; 
#N13s; 

fe 2*/ 


Generators(N18s) ; 
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/* 
{ 
(1, 4)(2, 3)(5, 6) 
; 
*/ 
[1 53)"Nise: 
/* 
GSet{@ 
[ts 8 Ts 
[4, 2] 
@} 
*/ 


tri:=Transversal (N,N13s) ; 

for i:=1 to #tri do 

ss:=[1,3]*tri(il; 

cst [prodim(1,ts,ss)]:=ss; 

end for; 

m:=0; for iin [1..28] do if cst[i] ne [J 
then m:=mt1; 

end if; end for;m; 


fe 15 */ 


Orbits(N13s) ; 
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/* 


GSet{@ 1, 4 @}, 
GSet{@ 2, 3 @}, 


GSet{@ 5, 6 @} 


*/ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[3]*ts[1] eq m*(DCLi])“n 
then i; break; end if; end for; end for; 

/* 4 */ /* goes to Nt1t6*/ 

for m,n in IN do if ts[1]*ts[3]*ts[1] eq m*(ts[1]*ts[6] )“n then word(m); 
word(n); end if; end for; 

/* 

x*y 

yes 

*/ 

Vy *XX; 

/* 

(1, 2)(3, 6) (4, 5) 


tit3ti=tit6?(1, 2)(3, 6) (4, 5)=t2t3 */ 


ts[1]*ts[3]*ts[1] eq f(x*y)*ts[2]*ts[3]; 


/*true */ 
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for iin [1..#DC] do for m,n in IN do if ts[1]*ts[3]*ts[2] eq m*(DCLi])“n 
then i; break; end if; end for; end for; 

/* 4 */ /*goes to Nt1t6*/ 

for m,n in IN do if ts[1]*ts[3]*ts[2] eq m*(ts[1]*ts[6] )“n then word(m); 
word(n); end if; end for; 


/* 


XX*VY 5 
/* 
(1.4) (2, 3)(5, 6) 


tit3t2=t1it6-(1, 4) (2, 3)(5, 6)=t4t5 */ 


ts[1]*ts[3]*ts[2] eq f(x) *ts[4]*ts[5] ; 


/*true */ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[3]*ts[5] eq m*(DCLi])“n 
then i; break; end if; end for; end for; 

/* 2 */ /*goes back to Nt1*/ 

for m,n in IN do if ts[1]*ts[3]*ts[5] eq m*(ts[1] )*n then word(n) ; 
word(n); end if; end for; 

/* 


xX 


XX*VY 5 
/* 
(1.4) (2, 3) (5,. 6) 


tit3t5=t17(1, 4) (2, 3)(5, 6)=t4 */ 


ts[1]*ts[3]*ts[5] eq f(x)*ts[4]; 


/*true */ 


/*DOING NEW COSET (Ntit5)*/ 
S:={[1, 5]}; 


SS:=S7N;SS; 


SSS :=Setseq (SS) ; 

for i in [1..#SSS] do 

for g in IN do if ts[1]*ts[5] 

eq g*ts[Rep(SSS[i] ) [1] ] *ts[Rep(SSS [i] ) [2]] 
then print SSS[i]; 

end if; end for; end for; 


/* 


Beto 
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C4, 6] 


N1i5:=Stabiliser(N, [1,5]); 
#N15; 
fe Le 
N1i5s:=N15; 
for n in N do if [1,5]“n eq [4,6] then 
N1i5s:=sub<N|N1i5s,n>; end if; end for; 
#N15s; 
/* 2*/ 
Generators (Ni5s) ; 
/* 
4: 
(1, 4)(2, 3)(65, 6) 
} 
*/ 
[1,5]“N15s; 
/* 
GSet{@ 
Pains, 


C4, 6] 
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@} 
*/ 


tri:=Transversal (N,N15s) ; 

for i:=1 to #tri do 

ss:=[1,5]*tri(il; 

cst [prodim(1,ts,ss)]:=ss; 

end for; 

m:=0; for iin [1..28] do if cst[i] ne [J 
then m:=mt1; 

end if; end for;m; 


/* 18 */ 


Orbits(N1i5s) ; 

/* 

[ 
GSet{@ 1, 4 @}, 
GSet{@ 2, 3 @}, 


GSet{@ 5, 6 @} 


*/ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[5]*ts[1] eq m*(DCLi])“n 
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then i; break; end if; end for; end for; 

/* 6 */ /* goes to Nt1t2*/ 

for m,n in IN do if ts[1]*ts[5]*ts[1] eq m*(ts[1]*ts[2] )“n then word(m) ; 
word(n); end if; end for; 


/* 


yy; 
/* 
(15. °6) (25-5) (35. 4) 


titd5ti=tit27(1, 6)(2, 5)(3, 4)=té6t5 */ 


ts[1]*ts[5]*ts[1] eq f(x*y)*ts[6]*ts[5]; 


/*true */ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[5]*ts[2] eq m*(DCLi])“n 
then i; break; end if; end for; end for; 

/* 2 */ /* goes to Nt1*/ 

for m,n in IN do if ts[1]*ts[5]*ts[2] eq m*(ts[1])“n then word(m); 
word(n); end if; end for; 

/* 

Id(G) 


Td(G) 
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*/ 
/* 


tit5t2=t17Id(G)=t1 */ 


ts[1]*ts[5]*ts[2] eq f(Id(G))*ts[1]; 


/*true */ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[5]*ts[5] eq m*(DCLi])“n 
then i; break; end if; end for; end for; 

/* 6 */ /* goes to Nt1it2*/ 

for m,n in IN do if ts[1]*ts[5]*ts[5] eq m*(ts[1]*ts[2] )“n then word(m) ; 
word(n); end if; end for; 

/* 

Id(G) 

Id(G) 

*/ 

/* 


tit5t5=t1it2°Id(G)=t1it2 */ 


ts[1]*ts[5]*ts(5] eq £(1d(G))*ts[1] *ts[2] ; 


/*true */ 


/*DOING NEW COSET (Ntit6) */ 


S:={[1, 6]}; 


SS:=S7N;SS; 


SSS :=Setseq (SS) ; 

for i in [1..#SSS] do 

for g in IN do if ts[1]*ts[6] 

eq g*ts[Rep(SSS[i] ) [1]]*ts[Rep(SSS [i] ) [2]] 
then print SSS[i]; 

end if; end for; end for; 

/* 

{ 


[3-6-1] 


ey 


N16:=Stabiliser(N, [1,6]); 

#N16; 

Pm At es 

N1i6s:=N16; 

for n in N do if [1,6]“n eq [1,6] then 
N1i6s:=sub<N|N16s,n>; end if; end for; 
#N16s; 

/* 1 */ 

Generators(N16s) ; 


/* 
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sae 

*/ 

[1,6] “N16s; 

/* 

GSet{@ 
Pie J 

@} 

+ / 


tri:=Transversal (N,N16s) ; 

for i:=1 to #tri do 

ss:=[1,6]*tri(il; 

cst [prodim(1,ts,ss)]:=ss; 

end for; 

m:=0; for iin [1..28] do if cst[i] ne [J 
then m:=mt1; 

end if; end for;m; 


/* 24 */ 


Orbits(N16s) ; 
/* 
[ 
GSet{@ 1 @}, 


GSet{@ 2 Q@}, 
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GSet{@ 3 @}, 
GSet{@ 4 @}, 
GSet{@ 5 @}, 
GSet{@ 6 @} 
] 
* / 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[6]*ts[1] eq m*(DCLi])“n 
then i; break; end if; end for; end for; 

/* 7 */ /* goes to Ntit2t1*/ 

for m,n in IN do if ts[1]*ts[6]*ts[1] eq 

m*(ts[1i]*ts[2]*ts[i] )“n then word(m); word(n); end if; end for; 


/* 


xx7-1; 
/* 
C1, By 93):C25. 65-4) 


tité6ti=tit2ti7(1, 5, 3)(2, 6, 4)=t5t6ts */ 


ts[1]*ts[6]*ts[1] eq f(y*x)*ts[5]*ts[6]*ts[5]; 


/*true */ 
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for iin [1..#DC] do for m,n in IN do if ts[1]*ts[6]*ts[2] eq m*(DCLi])“n 
then i; break; end if; end for; end for; 


/* 4 */ /* loops to Ntit6 */ 


for m,n in IN do if ts[1]*ts[6]*ts[2] eq m*(ts[1]*ts[6] )“n then word(m); 
word(n); end if; end for; 

/* 

x 


Bs 
4 


(1, 6)(2, 5)(3, 4) 


titét2=t1it6"(1, 6)(2, 5)(3, 4)=té6t1 */ 


ts[1]*ts[6]*ts[2] eq f(x)*ts[6]*ts[1]; 


/*true */ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[6]*ts[3] eq m*(DCLi])“n 
then i; break; end if; end for; end for; 

/* 2*/ /* goes back to Nt1 */ 

for m,n in IN do if ts[1]*ts[6]*ts[3] eq m*(ts[1])“n then word(m) ; 
word(n); end if; end for; 


/* 
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Id(G) 
Id(G) 
*/ 
/* 


tité6t3=t17Id(G)=t1 */ 


ts[1]*ts[6]*ts[3] eq f(Id(G))*ts[1]; 


/*true */ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[6]*ts[4] eq m*(DCLi])“n 
then i; break; end if; end for; end for; 

/* 6 */ /* goes to Ntit2 */ 

for m,n in IN do if ts[1]*ts[6]*ts[4] eq m*(ts[1]*ts[2])“n then word(m) ; 
word(n); end if; end for; 


/* 


/* 
XX*VY 5 
(1, 4)(2,°3) (5, 6) 


tité6t4=t1it2°(1, 4)(2, 3)(5, 6)=t4t3 */ 


ts[1]*ts[6]*ts[4] eq f(y*x)*ts[4]*ts[3]; 
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/*true */ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[6]*ts[5] eq m*(DCLi])“n 
then i; break; end if; end for; end for; 

/* 5 */ /* goes to Ntit3 */ 

for m,n in IN do if ts[1]*ts[6]*ts[5] eq m*(ts[1]*ts[3])“n then word(m) ; 
word(n); end if; end for; 


/* 


/* 
Vy *Xx; 
C1 2763846) (4,5) 


tité6t5=t1it3°(1, 2)(3, 6) (4, 5)=t2t6 */ 


ts[1]*tsl6]*ts[5] eq f(y)*ts[2]*ts[6] ; 


/*true */ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[6]*ts[6] eq m*(DCLi])“n 
then i; break; end if; end for; end for; 

/* 5 */ /* goes to Ntit3 */ 

for m,n in IN do if ts[1]*ts[6]*ts[6] eq m*(ts[1]*ts[3])“n then word(m) ; 


word(n); end if; end for; 


/* 
Id(G) 
Id(G) 
*/ 
/* 


tité6t6=t1it3* (Id(G)=t1it3 */ 


ts[1]*ts[6]*ts[6] eq f(Id(G))*ts[1]*ts[3] ; 


/*true */ 


/*DOING NEW COSET (Ntit2t1)*/ 
S:={[1, 2,1]}; 


S8:=S7N;SS; 


SSS :=Setseq (SS) ; 

for i in [1..#SSS] do 

for g in IN do if ts[1]*ts[2]*ts[1] 

eq g*ts[Rep(SSS [i] ) [1] ]*ts[Rep(SSS[i]) [2]]*ts[Rep(SSS[i]) [1]] 
then print SSS[i]; 

end if; end for; end for; 


/* 


Pty. 25. de] 
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[6, 5, 6] 


N121:=Stabiliser(N,[1,2,1]); 

#N121; 

/* 1 */ 

N1i21s:=N121; 

for n in N do if [1,2,1]“n eq [6,5,6] then N121s:=sub<N|N121s,n>; 


end if; end for; 


#N121s; 

pe 2%] 

Generators (N121s) ; 

/* 

4: 

(1, 6)(2, 5)(3, 4) 

} 

*/ 


[1,2,1]°N121s; 
/* 
GSet{@ 

Pato. els 


[ 6, 5, 6 ] 
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@} 
*/ 


tri:=Transversal(N,N121s); 

for i:=1 to #tri do 

ss:=[1,2,1]*trilil; 

cst [prodim(1,ts,ss)]:=ss; 

end for; 

m:=0; for i in [1..28] do if cst[i] ne [J 


then m:=mt1; 


end if; end for;m; 


/* 27 */ 


Orbits(N121s) ; 

/* 

[ 
GSet{@ 1, 6 @}, 
GSet{@ 2, 5 @}, 


GSet{@ 3, 4 @} 


*/ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[1]*ts[1] eq 


217 


m*(DC[i])“n then i; break; end if; end for; end for; 

/* 4 */ /* goes to Nt1t6*/ 

for m,n in IN do if ts[1]*ts[2]*ts[1]*ts[1] eq m*(ts[1]*ts[6] )“n 
then word(m); word(n); end if; end for; 


/* 


(1, 49(@, 3)6, 6) 


tit2titi=tit6 (1, 4)(2, 3) (5, 6)=t4t5 */ 


ts[1]*ts[2]*ts[1]*ts[1] eq f(y)*ts[4]*ts[5]; 


/*true */ 


for i in [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[1]*ts[2] eq 
m*(DC[i])“n then i; break; end if; end for; end for; 

/* 7 */ /* loops to Nt1t2t1*/ 

for m,n in IN do if ts[1]*ts[2]*ts[1]*ts[2] eq m*(ts[1]*ts[2]*ts[1] )*n 
then word(m); word(n); end if; end for; 

/*x7-1 

Id(G) */ 


/*tit2tit2=tit2t1* (x*-1)=tit2t1 */ 
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ts[1]*ts[2]*ts[1]*ts[2] eq f(x*-1)*ts[1]*ts[2]*ts[1]; 


/*true */ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[1]*ts[3] eq 
m*(DC[i])“n then i; break; end if; end for; end for; 

/* 6 */ /* goes to Nt1it2*/ 

for m,n in IN do if ts[1]*ts[2]*ts[1]*ts[3] eq m*( ts[1]*ts[2] )“n 
then word(m); word(n); end if; end for; 

/* 


Td(G) 


/* 
CLs BUC2,- BS 44) 


tit2t1it3=tit2* (1d(G))=t6t5 */ 


ts[1]*ts[2]*ts[1]*ts[3] eq f(1d(G))*ts[6]*ts[5] ; 


/*true */ 


Appendix H 


MAGMA CODE for 
Permutation Progenitor of 


cia ea cy o>) 


N:=TransitiveGroup (6,10); 
#N; 

N; 

S:=Sym(6) ; 

xx:=S!(2, 4, 6); 
yy:=8!(1, 5) (2, 4); 
ZZ:=S0C1 43. 5, 2) (3; 6)% 
N:=sub<S|xx,yy,zz>; 

#N; 


/* 36 */ 
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FPGroup (N) ; 


NN<a,b,c>:=Group<a,b,cla*3,b°2,c74, (a*-1*b) “2,c7-1*b*c*-1, 
a~-1*c7-1*a7-1*c7-1*a7-1*cx*axc>; 
#NN; 


/*36 this means we have 36 elements/permutations */ 


Set(N); /* these are the 36 elements */ 


/*Rewrite the permutations of Set(N) above as \words" using SchreierSystem*/ 


SchreierSystem(NN, sub<NN|Id(NN) >) ; 


Sch:=SchreierSystem(NN,sub<NN|Id(NN)>) ; 

ArrayP:=[Id(N): i in [1..#N]]; 

for iin [2..#N] do 

P:=[Id(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Sch[i]] do 

/* we put -1 if our G contains powers to the negativex/ 
if Eltseq(Sch[i])[j] eq 1 then P[j]:=xx; end if; 

if Eltseq(Sch[i])[j] eq -1 then P[j]:=xx*-1; end if; 

if Eltseq(Sch[i])[j] eq 2 then P[j]:=yy; end if; 

if Eltseq(Sch[i])[j] eq 3 then P[j]:=zz; end if; 


if Eltseq(Sch[i])[j] eq -3 then P[j]:=zz*-1; end if; 


221 


end for; 

PP:=Id(N); 

for k in [1..#P] do 
PP:=PP*P[k]; end for; 
ArrayP [i] :=PP; 


end for; 


N1:=Stabilizer(N,1); 
N1; 
/*Permutation group Ni acting on a set of cardinality 6 
Order =6=2* 3 
(2, 4, 6) 
(2, 6)(3, 5) */ 
for iin [1..#Sch] do if ArrayP[i] eq N!(2,4,6) then 
Sch[i]; end if; end for; 
Peay 
for iin [1..#Sch] do if ArrayPLli] eq N!(2,6)(3,5) then 
Sch[i]; end if; end for; 
/*c* av-1*cxai */ 
XX; 
ZZ*XX” —1*ZZ*XX; 
N1 eq sub<N|xx,zz*xx*-1*zZ*xx>; 
/*true */ 


/* this is our G with the new elements */ 
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G<x,y,z,t>:=Group<x,y,z,t|x°3,y°2,2°4, (x*-1*y) “2, 
Z°-L*y*z7-1 x7 -1#Z7-1*x7-1*Z7-1*x7-1*Z*x*z,t72, 


(t,x), (t,z*x7-1*z*x) >; 


Orbits(N1); 


for j in [1..6] do for i in [1..#N] do if 1*ArrayP[i] eq j 


then j, Sch[i]; break; end if; end for; end for; 


NN; 

#NN; 

/* 36 */ 
G<x,y,z,t>:=Group<x,y,z,t|x°3,y°2,2°4, (x*-1*y) “2, 
Z--Ley*z7>-1,x°-1*Z7-1*x7-1*Z7-1*x*-1*Z*x*z,t72, 
(t,x), (t,z*x*-1#z*x), (t,t* (z*x*z)), (t,t*(z*-1))>; 
#G;/* 2304 */ 


2°6*36;/* 2304 */ 


/* Now find 1st order relations, that will help us figure out 


which relations to do for DCE’s*/ 


C:=Classes(N) ; 
for iin [2..#C] do i, C[i][8]; for j in [1..#N] do 


if ArrayP[j] eq Cli] [3] then Sch[j]; end if; end for; 
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Orbits (Centralizer(N,C[i][3])); end for; 


for j in [1..6] do for i in [1..#N] do if 1°ArrayP[i] eq j 


then j, Sch[i]; break; end if; end for; end for; 
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Appendix I 


MAGMA CODE for 
Permutation Progenitor of M19 


Oe) 


N; 

S:=Sym(96) ; 

xx:=S!(1, 86, 25, 96)(2, 51, 40, 54)(3, 73, 60, 77)(4, 78, 67, 70) 
(5, 85, 7, 88)(6,87, 28, 64)(8, 17, 72, 58)(9, 90, 82, 55) 

(10, 14, 12, 92)(11, 89, 39,71)(13, 22, 76, 69)(15, 75, 65, 80) 
(16, 41, 19, 79)(18, 74, 68, 35)(20, 33,57, 84)(21, 48, 23, 47) 
(24, 95, 29, 45)(26, 31, 62, 34)(27, 46, 66, 49)(30,59, 32, 56) 
(36, 53, 38, 50)(37, 91, 81, 52)(42, 61, 44, 94)(43, 93, 83, 63); 
yy:=S!(1, 3, 14)(2, 8, 13)(4, 20, 51)(5, 15, 55)(6, 26, 71) 


(7, 19, 54)(9, 35, 46)(10,30, 64) (11, 41, 70)(12, 34, 49)(16, 50, 21) 


(17, 61, 29)(18, 63, 
(27, 59, 94)(28, 56, 
(37, 80, 47)(39, 75, 


(58, 91, 69) (60, 90, 


N:=sub<S|xx,yy>; 
#N; 


/* 192*/ 
N1i:=Stabiliser(N,1); 
#N1; 


/*2*/ 


Generators (N1) ; 
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24) (22, 68,89) (23, 65, 92)(25, 57, 53) 
52) (31, 45, 36) (32, 76,38) (33, 78, 43) 
96) (40, 74, 95) (42, 84, 85)(44, 77,48) 


67) (62, 93, 66) (72, 87, 82)(73, 86, 83)(79, 88, 81); 


/* to find the presentation of N */ 


FPGroup (N) ; 


NN<a, b>:=Group<a, b| 
a4 , 


b3) , 


(a * b°-1 * a*-1 * b°-1)°2, 


av~-1 * b * a°-2 * bv-1 * av-1 * b * a72 * D°-1 >; 


#NN ; 


/* 192*/ 


word: =function (A) 
Sch:=SchreierSystem(NN,sub<NN|Id(NN)>) ; 

for i in [2..#NN] do 

P:=[Id(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Sch[i]] do 

if Eltseq(Schli])[j] eq 1 then P[j]:=xx; end 
if Eltseq(Sch[i])[j] eq -1 then P[j]:=xx*-1; 
if Eltseq(Sch[i])[j] eq 2 then P[j]:=yy; end 


if Eltseq(Sch[i])[j] eq -2 then P[j]:=yy*-1; 


end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

if A eq PP then B:=Sch[i]; end if; 
end for; 

return B; 


end function; 


A:=N!(2, 42)(3, 62)(5, 25)(6, 29)(8, 74)(9, 83)(10, 44) (11, 40) 
(12, 39)(13, 70) (14, 93) (15, 68) (16, 26)(17, 60)(18, 20)(19, 58) 
(21, 67) (22, 27) (30, 34)(31, 35) (32, 72) (33, 73) (36, 43)(37, 82) 


(38,81) (41, 84) (45, 86)(46, 78) (47, 76) (48, 49) (50, 61) (51, 63) 


Ad: 
end 
if; 


end 


if; 


if; 
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(52, 92)(53, 89)(54, 91)(55, 94)(56, 65) (57,59) (64, 96)(71, 90) 
(75, 77) (79, 80)(85, 95) (87, 88); 
word (A) ; 


/* a * b°-1 * at-1 * D7-1 */ 


G<x,y,t>:=Group<x,y,t|x*4, y°3 , (x * y°-1 * x7-1 * y7-1)°2, 
x°-1 * y * x°-2 * y°-1 * x°-1 * y * x72 * yo-l ss , t°2, 


(t,x * y°-1 * x7-1 * y*-1)>; 


Orbits(N1); 


temp:={4,7,23,24,28,66,69,2 ,3 ,5 ,6 , 8, 9 , 10 , 11, 12, 13,14, 
15,16, 17, 18, 19,21,22,30,31,32,33,36,37,38,41,45,46,47,48,50,51, 
52,53,54,55,56,57,64,71,75,79,85, 87}; 

for n in N do for j in temp do if 1°n eq j then word(n),j; 


temp:=temp diff {j}; end if; end for; end for; 


G<x,y,t>:=Group<x,y,t|x*4, y°3 , (x * y°-1 * x7-1 * y7-1)°2, 
x°-1 * y * x°-2 * y°-1 * x°-1 * y * x72 * yo-ls , t°2, 

(t,x * y°-1 * x7-1 * y*-1), 

Chytoy oy Cyt Gr aL.) lty t Gera ley ed), Cae Gy stax) 

(t,t7 Cy7*-1*x7-1)), (0, t7 Cx 24y )), (t,t7 (x7 2*y7*-1) +), 

(t,t7 Cy*x*-1Lty) ), (t,t Cy*x) ), (t,t7 (x*-1*y*-1*x7-1)), 


(t, t7Cy*-1#x*-1ey)) , (t,t7 Cy*-1#x7-1Ley7-1)), (t,t? (x 2*y*x7-1)), 
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(t,t (x7 2Q*y*-1*x)) , (Ct, t* (x7 2*y7-1*x7-1)), (t,t ((x*y)*2)), 

(t,t (x*y*x*y7-1)), (t,t? (xty*x*-1ey)) , (6,07 (y*x7-1L*y*x)), 

(t,t7 CCy*x7-1)72)), C(t, t* (x71 y*x72)) , (6,07 (x*-Lty*xty)), 

(t,t7 ((x*-1*y)72)), (t,t* (x*-1*y*-1#x*-L*y)), 

(t,t? (Cx*-1*y*-1)°2)), (t,t? (y*-1#x7*-1ty*x7-1)), 

(t,t7 (Cy*-1*x7-1)72)), (t, t* (x Qey*x*y)), 

(t,t (x7 Q*y7-1*x72)), (0,07 (x Qy*-Lexty)) , (6,07 (x7 2*y7-1*x*-L*y)), 
(t,t (x7 2*y*-1*x7*-1Ley7-1)) , (0,07 (xey*x?-Lty*x7-1)), 

(t,t? Cxey7-texty*x7-1)), (t,t? (y*x7-Lky*x72)), 

(t,t Cy * x7-1 * y * x7-1 * y)), (t,t? (y*x?-1y7-1¥*x7-1*y7-1)), 

(t,t (x*-Ley*x*24y)) , (0,07 (x7 -Ley*xey*x) ) , (6,07 (x? -Lty*x*-1Lty*x7-1)), 
(t,t (x*-Ley*-1ex724y°-1)), (t,t* (y*- 1x7 -L*y*x*-Lty)), 
(t,t7C(x*2*y)72)), (t,t7 (x72 * y * x72 * y°-1)), (t,t7 (x Dey*x*y*x)), 
(t,t* (x7 Qey*-Lex*y*-1*x)), (t,t7 ((y*x7-1)73)), 

(t,t Cy*x*-Ley*-Lex*-Ley*-1*x7-1)), (6,07 (x*-1Lty*x*2*y*x)), 


(t,t7 (Cx*-1y)73)), (t,t* (x* 2Qy*x*y*x*y7-1))>; 


C:=Classes(N); C; 
for iin [2..#C] do i, C[i] [3];word(c[i] [3]); 


Orbits(Centraliser(N,C[i][3])); end for; 


for j in [2..#N] do for i in [1..#Setseq(Set(N))] do if 
1*Setseq(Set(N)) [i] eq j then j,word(Setseq(Set(N)) [i]); 


break; end if; end for; end for; 
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Appendix J 


MAGMA CODE for M5 
Permutation Progentior 


pCa One 8) 


S:=Sym(72) ; 

xx:=S!(1, 23, 49, 32, 12, 60)(2, 44, 16, 45, 17, 62)(3, 41, 6, 55, 50, 
33) (4, 63, 14, 46, 8, 43)(5, 66, 26, 58, 31, 72)(7, 61, 19, 28, 42, 10) 
(9, 20, 24, 54, 29, 38)(11, 69, 35, 70, 37, 18)(13, 21)(15, 36, 59, 53, 


47, 48) (22, 67)(25, 40, 71, 27, 68, 52)(30, 64, 39, 57, 34, 56)(51, 65); 


yy:=S!(1, 35, 58, 2, 6, 54, 25, 4)(3, 40, 46, 64, 14, 21, 19, 69)(5, 36, 
38, 15, 22, 60, 17, 55)(7, 48, 66, 29, 32, 53, 71, 30)(8, 23, 27, 57, 37, 
39, 67, 41)(9, 13, 50, 59, 42, 26, 20, 44)(10, 24, 12, 31, 45, 48, 16, 


65) (11, 63, 18, 51, 49, 34, 61, 52)(28, 62, 68, 70, 33, 56, 72, 47); 
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N:=sub<S|xx,yy>; 
#N; 


/* 432 */ 


N1i:=Stabiliser(N,1); 
#N1; 
/*6*/ 


Generators (N1) ; 


FPGroup (N) ; 


NN<a, b>:=Group<a, b| 


b°2 * av-2 * b°o-1 * ax*xb , 
a~-1 * b°-1 * a * b°-1 * av-1 * D°-1 * a°3 * DD; 
#NN ; 
/* 432 */ 
word: =function (A) 
Sch:=SchreierSystem(NN,sub<NN|Id(NN)>) ; 
for iin [2..#NN] do 
P:=[Id(N)+ 1 in (1..#S8ch[i))]; 
for j in [1..#Sch[i]] do 
if Eltseq(Schli])[j] eq 1 then P[j]:=xx; end if; 


if Eltseq(Sch[i])[j] eq -1 then P[j]:=xx*-1; end if; 
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if Eltseq(Schli])[j] eq 2 then P[j]:=yy; end if; 

if Eltseq(Sch[i])[j] eq -2 then P[j]:=yy*-1; end if; 

end for; 

PP:=Id(N) ; 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

if A eq PP then B:=Sch[i]; end if; 

end for; 

return B; 

end function; 

A:=N!(2, 58)(3, 55)(4, 25)(5, 45)(8, 44) (9, 18) (10, 22)(11, 40) (12, 
23) (13, 60)(14, 15)(16, 39) (17, 63)(19, 67) (20, 31)(21, 49) (24, 64) 
(26, 36)(27, 46) (29, 66)(30, 71) (34, 38) (35, 54) (37, 59)(41, 51) (42, 
61) (43, 53) (47, 72)(48, 69)(50, 65)(52, 57) (56, 62) (68, 70); 

word (A) ; 

/ka* bx*a* b* av-1 * D°-1 */ 

B:=N!(2, 25, 54)(3, 41, 65)(4, 58, 35)(5, 18, 46)(8, 69, 34)(9, 45, 
27) (10, 67, 42)(11, 26, 39)(12, 60, 21)(13, 23, 49)(14, 57, 31)(15, 
20, 52)(16, 36, 40)(17, 24, 59)(19, 22, 61)(29, 71, 53)(30, 66, 43) 
(37, 64, 63)(38, 48, 44) (47, 68, 62)(50, 51, 55)(56, 70, 72); 

word (B) ; 


/* a * b°-1 * av2 * b */ 


G<x,y,t>:=Group<x,y,t|x°6, y°8 , y°2 * x°-2 * y"-1 * x *y, 


x°-1 * yo-l * x * y°-l * x°-1 * y°-1 * x°3 * y , t°2 


(t,x * y * x * y * x7-1 * y°-1), (t, x * y7-1 * x72 * y) >; 


/* to verify progenitor is correct, do the following : */ 
sub<N|x * y * x * y * x7-1 * y°-1,x * y°-1 * x72 * y> eg N1; 


/* true*x/ /* so our progenitor is correct; now do FOR */ 


Orbits(N1); 


temp:={6,7,28, 32, 33, 2, 3, 5, 8, 10, 11, 12, 14, 17, 29, 47}; 


for n in N do for j in temp do if 1°n eq j then word(n),j; 


temp:=temp diff {j}; end if; end for; end for; 


C:=Classes(N); C; 


for iin [2..#C] do i, C[i] [3];word(c[il] [3]); 


Orbits (Centraliser(N,C[i][3])); end for; 


for j in [2..#N] do for i in [1..#Setseq(Set(N))] do if 


1“Setseq(Set(N)) [i] eq j then j,word(Setseq(Set(N))[i]) ; break; 


end if; end for; end for; 
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Appendix K 


MAGMA CODE for 
Construction of M5, : 2? over 


PGL(2,9) :2 and PGL(2,9) 


S:=Sym(10) ; 
xx:=5!(1,2,10)(3,4,5) (6,7,8); 
yy:=8!(1,7,3,4,2,5,6,8); 
zz:=S!(1,2) (4,7) (5,8) (9,10); 
N:=sub<S|xx,yy,zz>; 

#N; 


/*720*/ 


G<x,y,z,t>:=Group<x,y,z,t|x°3,y°8,2°2, (y°-1*z) “2, 


(z*x7-1)°3, Cy*-L#x*-L*y*-1*x°-L*y*2*x) , 
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(x*y7-2*x*-Ley*x*-1L*y) ,t72, (t,y°-1L*x*z¥*y*2) , (t,y7-2*x*y*-1), 
(zex*y*t) “6, (z*t) “8, (t*t°x) “2=y"4*z>; 
#G; 


/* 80640 */ 


#sub<G|Ix,y,z>; 


/* 720 */ 


#DoubleCosets(G, sub<G|x,y,z>,sub<Glx,y,z>); /* 6 */ 


f ,G1,k:=CosetAction(G,sub<G|x,y,z>); 
M:=MaximalSubgroups (G1) ; 
for i in [1..#M] do #M[i] ‘subgroup/720; end for; 


/* 


56 
56 
*/ 


M4:=M[4] ‘subgroup; 
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f(x) in M4 and f(y) in M4 and f(z) in M4; 


/* false */ 


D:=Conjugates(G1,MA4) ; 
DD:=Setseq(D) ; 
for iin [1..#D] do if f(x) in DD[i] and f(y) in DD[i] and f(z) in DD[il] 
then i; end if; end for; 
/* 56 */ 
for g in DD[56] do if DD[56] eq sub<Gilf(x),f(y),f(z),g> 
then Sch:=SchreierSystem(G, sub<G|Id(G)>); for i in 
[1..#Sch] do if g eq f(Sch[i]) then Sch[i]; end if; 
end for; break g; end if; end for; 


/*Z* yRKtCRX Kt ey ete x1 eK te y et */ 


H:=sub<G|x,y,Z,Z xy * tex et ky kt * x7-1 *¥ t Ky * DD; 
#H; 
/* 1440 */ 
#DoubleCosets(G,H,sub<Glx,y,z>) ; 
/* 3 */ 
f ,G1,k:=CosetAction(G,H) ; 
#k; 
/* 1 */ 


/* £ is faithful - use this f*/ 


236 


IH:=sub<G1| f(x), f(y), f(z), fi@*y* tex ete yet * x7-1 * t * y * «td; 


CompositionFactors (IH) ; 


IN:=sub<Gil f(x), f(y), f(z)>; 


/*NOTE: if our k was not faithful we use the following code: 


Index (G,sub<G|x,y,z>) ;*/ 


/* NOW WE CAN START THE DCE ALOG. */ 


DoubleCosets(G,H, sub<Glx,y,z>); 


DC:=[Id(G1) ,f(t), £(t*x*t)]; 


NN<a,b,c>:=Group<a,b,cla*3,b°8,c°2, (b*-1*c) “2, 
(c*a*-1)73, (b*-1*a7-1*b*-1*a°-1*b72*a) , 


(a*b*-2*a*-1*b*a~-1*b) >; 


Sch:=SchreierSystem(NN,sub<NN|Id(NN)>) ; 
ArrayP:=[Id(N): i in [1..#N]]; 

for iin [2..#N] do 
P:=[Id(N): 1 in [1..#Sch[i]]]; 
for j in [1..#Sch[i]] do 

if Eltseq(Sch[i])[j] eq 1 then P[j]:=xx; end if; 


if Eltseq(Sch[i])[j] eq -1 then P[j]:=xx*-1; end if; 
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if Eltseq(Sch[i])[j] eq 2 then P[j]:=yy; end if; 

if Eltseq(Sch[i])[j] eq -2 then P[j]:=yy*-1; end if; 
if Eltseq(Sch[i])[j] eq 3 then P[j]:=zz; end if; 

if Eltseq(Sch[i])[j] eq -3 then P[j]:=zz*-1; end if; 
end for; 

PP:=Id(N) ; 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

ArrayP [i] :=PP; 


end for; 


for j in [2..10] do for i in [1..#Sch] do if 1*ArrayP[i] eq j then j,Schlil; 


break;end if; end for; end for; 


ts := [ Id(G1): i in [1 .. 10] ];/* use this to write my ten t’s */ 
ts[1]:=f(t); ts[2]:=f(t*x); ts[3]:=f(t*(y°2)); ts[4]:=f£(t7 (x * y*-1)); 
ts[5]:=f(t*(x * y)); ts[6]:=f(t*(y * x*-1)); ts[7]:=f(t*y); ts(8]:=f(t*(y*-1)); 


ts[9] :=f(t* («7-1 * z)); ts[10]:=f(t*(«*-1)); 


cst:=[null : i in [1..56]] where null is /* #Index(G,H) */ 
[Integers() |]; 

prodim := function(pt, Q, I) 

vi= pt; 


for iin I do 
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v:=v" (QLil); 

end for; 

return v; 

end function; 

for i :=1 to 10 do 

cst [prodim(1,ts, [i])]:=[1]; 


end for; 


m:=0; for iin [1..56] do if cst[i] ne [] then m:=mt1; 
end if; end for;m; 


/*10 */ 


Orbits(N); 
/*[ 
GSet{@ 1, 2, 7, 10, 5, 8, 3, 4, 9, 6 @} 
]*/ 
Generators (N) ; 
/* 
{ 
(1, 2)(4, 7)(5, 8)(9, 10), 
Ct 2, MOMS 5 Ay. BIB Te Shs 
Chy T4844) 25. 5s by: 8) 


}*/ 
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for iin [1..3] do for g in IH do for h in IN do if ts[1] eq g*(DC[i])“h then i; 
break;end if;end for;end for;end for; 


/* 2 */ /* 10 things move forward, 0 + #N/#N1s=720/72=10 */ 


/*SECOND DOUBLE COSET Hti [1] */ 
S:={[1]}; 
5S:=S°N;S5S; 
SSS:=Setseq(SS) ; 
for i in [1..#SSS] do 
for g in IH do if ts[1] 
eq g*ts[Rep(SSS [i] ) [1]] 
then print SSS[il]; 
end if; end for; end for; 
/*f 
bas 
}x/ 
N1i:=Stabiliser(N,1); 
Generators (N1) ; 
/* 
{ 
(2, 7)(3, 9) (4, 6)(5, 10), 
(2, 10, 3, 6, 7, 5, 9, 4), 


(2, 3, 4, 6, 10, 8, 7, 5), 
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(2, 7, 10, 4)(3, 5, 8, 6) 


}*/ 


Ni:=Stabiliser(N,[1]); 

#N1; 

/*72*/ 

Nis:=N1; 

#Nis; 

/*72*/ 

Generators (Nis) ; 

/*f 
(2). Big 6a. 1) Ag 93. 10, By 
(2, 6, 7, 3, 10, 5, 4, 8) 


}*/ 


Orbits(N1); 
/* 
[ 
GSet{@ 1 Q@}, 
GSet{@ 2, 5, 6, 4, 7, 9, 8, 3, 10 @} 
]*//* so now we must find where each goes to: 


Ht_it_1l= ? , Ht_it_2= ?*/ 


for i in [1..3] do for g in IH do for h in IN do if ts[1]*ts[1] 


eq g*(DC[i])“h then i; break;end if;end for;end for;end for; 


/*1*//* one thing goes back */ 


for iin [1..3] do for g in IH do for h in IN do if ts[1]*ts[2] 
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eq g*(DC[i])“h then i; break;break;end if;end for;end for;end for; 


/* 3 *//* 9 things move to [12],Ht12 */ 


/* THIRD DOUBLE COSET [12] +*/ 

$:={[1,2]}; 

SS:=S7°N;SS; 

SSS:=Setseq(SS) ; 

for iin [1..#SSS] do 

for g in IH do if ts[1]*ts[2] 

eq g*ts[Rep(SSS [i] ) [1]]*ts[Rep(SSS[i]) [2]] 
then print SSS[i]; 


end if; end for; end for; 


aa 

Bae 24 
is 
{ 

ee 
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N12:=Stabiliser(N, [1,2]); 
Generators (N12) ; 
/*{ 
(3, 4, 9, 8, 6, 5, 10, 7), 
(3, 9, 6, 10)(4, 8, 5, 7) 
}x/ 
N12:=Stabiliser(N, [1,2]); 
#N12; 


/*8*/ 


N1i2s:=N12; 
for n in N do if [1,2]“n eq [ 2,1] then N12s:=sub<N|N12s,n>; 
end if; end for; 
#N12s; 
/*16*/ 
Generators(N12s) ; 
/*{ 
(1, 2)C4, 745, 809% 10); 
C1, 2908 7 6) 45 BIS 3. 7) 5 
(3, 8, 10, 4, 6, 7, 9, 5), 
(1, 2)(3, 7)(4, 10)(5, 9)(6, 8), 
(1, 2)(3, 4)(5, 6)(7, 9)(8, 10), 
(1992) (35. 10) C4, S716 9) 


Cl 5: BUS 54, 6) Ch AD) (8 3.°9) 5 
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(1, 2)(3, 8) (4, 9), 10)(6, 7), 
CH 5 28507-0850 10) C7528) 


}*/ 


[1,2]°“N12s; 
GSet{@ 
Lede ory 
C2) 4.9 
@}/* we have both things that are equal so our coset 


should increase by 720/16 = 45 */ 


tri:=Transversal(N,N12s); 

for i:=1 to #tri do 

ss:=[1,2]“trilil; 

cst [prodim(1,ts,ss)]:=ss; 

end for; 

m:=0; for iin [1..56] do if cst[i] ne [J 
then m:=mt1; 


end if; end for;m; /* 55, confirms it increased by 45 */ 


Orbits (N12) ; 
/* 
[ 


GSet{@ 1 Q@}, 
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GSet{@ 2 @}, 
GSet{@ 3, 8, 10, 4, 6, 7, 9, 5 @} 


]*/ 


for iin [1..3] do for g in IH do for h in IN do if ts[1]*ts[2] *ts[1] 
eq g*(DC[i])“h then i; break;end if;end for;end for;end for; 


/* 2 *//* 1 thing goes back */ 


for iin [1..3] do for g in IH do for h in IN do if ts[1]*ts[2]*ts[2] 
eq g*(DC[i])“h then i; break;end if;end for;end for;end for; 


/* 2 *//* 1 thing goes back */ 


for iin [1..3] do for g in IH do for h in IN do if ts[1]*ts[2]*ts[3] 


eq g*(DC[i])“h then i; break;end if;end for;end for;end for; 


/* 3 *//* 8 things loop */ 


CompositionFactors (G1) ; 


NL:=NormalLattice(G1) ; 


NL; 


for iin [1..#NL] do if IsAbelian(NL[i]) then i; end if;end for; 


fe Ase] 
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CompositionFactors (IH) ; 


NL:=NormalLattice(IH) ; 


NL; 


for iin [1..#NL] do if IsAbelian(NL[i]) then i; end if;end for; 


/* 1 */ 


IsIsomorphic(NL[5] ,PGL(2,9)); 


K:=AutomorphismGroup (Alt (6) ) ; 
#K; 

/* 1440 */ 
GG:=PermutationGroup (K) ; 

#GG ; 

/* 1440 */ 
IsIsomorphic (GG, IH) ; 

Index (G1,IH) ; 


/* 56 */ 


CompositionFactors (IN) ; 


NL:=NormalLattice(IN) ; 


NL; 
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Appendix L 


MAGMA CODE for 


Semi-direct of 2° : 4 


4 


op) 


:=Sym(8) ; 


A:=S!(1, 8)(Q, 
B:=S!(1, 3) (2, 
C:=S!(1, 5) (2, 


D:=S!(1, 3), 


N:=sub<S|A,B,C, 


D>; 


:=TransitiveGroup (8,19) ; 


S BCG 095 
, 6)(5, 7); 
, 7)(4, 8); 


se DS 


CompositionFactors(N) ; 
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NL:=NormalLattice(N); NL; 


for iin [1..#NL] do if IsAbelian(NL[i]) then i; end if; end for; 


NL[8] ; 


X:=AbelianGroup(GrpPerm, [2,2,2]); 

IsIsomorphic(NL[8] ,X); 

/*true */ 

H<a,b,c>:=Group<a,b,cla°2,b°2,c°2, (a,b), (b,c), (a,c)>; 
#H; 

/* 8 */ 

f ,H1,k:=CosetAction(H, sub<H|Id(H)>); 
IsIsomorphic(H1,NL[8]); 


/* true *//* verified our presentation of NL[8]*/ 


/* We factor out N by NL[8]. Thus, N is a mixed extension of NL[8] by N/NL[8]*/ 
q,ff:=quo<N|NL[8]>; 


q; 


IsIsomorphic(N, DirectProduct (NL[8] ,NL[4])); 


/*false */ 


T:=Transversal (N,NL[8]); 
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NL(8] ; 
A:=N!(1, 5) (2, 6)(3, 7)(4, 8); 
B:=N!(1, 3)(2, 8)(4, 6)(5, 7); 


C:=N!(1, 8) (2, 3)(4, 5)(6, 7); 


#T; 
T(2]; 
(1, 3)(4, 5, 6, 7) 


D:=N!(1, 3)(4, 5, 6, 7); 


A,B,C,B°2,A*B,A*B*C,A*B~2,A*B°2*C,A*C,B*C, A*B~2*C; 


AD; 


/* (1, 4)(@2, 7)(3, 6)(5, 8) */ 


A~D eq A*C; 


/* true */ 


B°D; 
fe (1; 3) (2,8) 4,6) (5, 7) #7 


B°D eq B; 
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/* true *//* which means we can write as (bid) */ 


CD; 
/* (1, 2)(3, 8)(4, 7)(5, 6) ¥*/ 
C~D eq BxC; 


/* true */ 


Order (D); 


/* 4 */ /* so we write d74 */ 


/* Hence, a presentation for N is below*/ 
H<a,b,c,d>:=Group<a,b,c,d|a°2,b°2,c°2, (a,b), (a,c), (b,c), 


d*4, a*d=axc, (b,d) ,c*d=b*c>; 


#H; 

/* 32 *//* gave us the order of our Nx*/ 
f ,H1,k:=CosetAction(H, sub<H|Id(H)>); 
#H1 ; 


/* 32 */ 


w:=IsIsomorphic(H1,N) ; 
w; /* true */ /* verified our presentation so we are done and 


can conclude that the TransitiveGroup(8,19) is (2°73) : 4 */ 


250 


Appendix M 


MAGMA CODE for 


Construction of 2) M5) over A7 


S:=Sym(105) ; 

xx:=S!(1, 3, 7, 15, 29, 45)(2, 5, 11, 22, 
42, 66) (4, 9, 18, 34, 26, 46)(6, 13, 25)(8, 16, 31, 52, 
39, 61)(10, 20, 38, 58, 78, 75)(12, 24, 14, 27, 47, 53) (17, 
33, 48, 32, 54, 73)(19, 36, 30, 50, 63, 85)(21, 40, 62, 83, 23, 
43) (28, 41, 64, 87, 69, 90)(35, 57, 76, 97, 80, 100)(37, 59, 
79, 70, 92, 86)(44, 67, 88, 94, 91, 49)(51, 71, 65, 77, 98, 
104) (55, 74, 56, 72, 95, 84)(60, 81, 101) (68, 89, 82)(93, 103, 
99, 102, 105, 96); 

yy:=S!(1, 2, 4, 8)(3, 6, 12, 23)(5, 10, 19, 35)(7, 14, 26, 45) 

(9, 17, 32, 53)(11, 21, 39, 13)(15, 28, 47, 69) (16, 30, 49, 66) 


(18, 27, 29, 48)(20, 37, 58, 77)(22, 41, 63, 84)(24, 44, 54, 36) 
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(25; 43, 62, 82)(31, 51, 42, 65)(33, 55, 34, 56)(38, 60, 80, 81) 
(40, 46, 68, 73)(50, 70, 91, 59)(52, 72, 94, 87)(57, 75)(61, 76, 
67, 78) (64, 86)(71, 93, 79, 99)(74, 96, 90, 102)(83, 88, 89, 85) 


(92, 100, 104, 97)(95, 98)(101, 103); 


N:=sub<S|xx,yy>; 


#N; /* 2520 */ 


G<x,y,t>:=Group<x,y,t| 
x76 , 
y4 , 

x * yo-2* x°2* yo2* x, 
x°-1 * y°-2 * x°-1 * y°-1 * x * W2* x * y-l , 

x°-1l * yorl * x°-3 # y°-l * x73 * y°-1 *# x°-2 , 

(y*-1 * x7-1)°4 * Cy * x)72e y * x7-1 , 

(y*-1 * x7-2)72* y°-1 * x72 * y * xX * y7-1 * x73 * y * x7-1, O72, 
(t, y*¥ X2* ye x * y * xT-1 ey ex +d), CL, x72 * Cy * x :*+d)T2* y * x7-2), 
(t,x * y * x72 * y * x7-1 * y * XK * y7-1 * xd, 

(Cy * x)72 * y * X7-2 * yO-1 * xetT(X * Oy * X72 * Y * X73))73>; 
f ,G1,k:=CosetAction(G,sub<G|x,y>); 


#DoubleCosets(G, sub<G|x,y>, sub<G|x,y>) ;/*5 */ 


for iin [0..5] do for j in [0..3] do printf "Zo", i;j, 


xx71i*yy°j; end for; end for; 
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for i,j in [0..5] do for k in [0..3] do printf "Zo", 
1;j;k,xx"i*yy"k*xx7j; end for; end for; 

for i,k in [0..5] do for j in [0..3] do printf "%o", 
i;j;k,yy i*xx"j*yy"k; end for; end for; 

for iin [0..5] do for j in [0..3] do printf "Zo", i;j, 


(xx*i*yy7j)*-1; end for; end for; 


for i,k in [0..5] do for j in [0..3] do printf "Zo", 


i;j;k, (yy°i*xx*j*yy*k)*-1; end for; end for; 


#G1 ; 


887040 


CompositionFactors (G1) ; 


IN:=sub<G1lf(x) ,f(y)>; 

A:=[ Id(G), (y7-1 * x)72, x * y°-1 * x * y * x°2 * y, 
x°Q2* y*R x * y * xX * y7-l * 

x°2, x°2 * y * x°-1 * y * x7-1 * y * x72, 

x * yp * x2 * y * xX * V2 * x°-1, x°-1 

ey, xX *¥ y * x * yorl * x°2, yw2* x * y * x°2 * y * x°-l, 
x*y * x * y * x7-1 

ey, x°-1l * y * X°-2 *% y * X72, K-22 * y * XK Y * X, 


(y * x * y7-1)72, x72 * 
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y°-1 * x7-1 * y°-1 * x7-1, x°-1 * wo2 * x * y * x7-l, 

x°2 * y°-1 * x * y°-1 * x, 

ROD Roy SSD Se oe yok Dok ya 1, 

x°-2 * y * x * y * x°-2 * y°-l, 

yrl * x * y * x°-2, y°-1 * x * y * x°-2 * y°-1 * x, 

x * y * x°-1 * y * x, x7-1 

ey * x * yp * x * yo-l, x°-1 * yo-l * x * y * xX°Q * y°-1 * x72, 
x* y--l* x *y 

*x°2 * yo-l * x, x°-1 * y * xX *¥ y * Ke yT-1 * x°-1 * y°-l * x, 
x°-1 * y°-1, yx x°-1 * y * x72 * y°-1 * x * y°-1 * x°-l, 

x * y * x * y°-1 * x°-1 * y°-1 * x73, 

y* x°-l1 * y * x7-1 * yy *# xD * yy KX KY, 

x°-2 * y * x * y * X°2 * y°-1 * x, 

x°-1 * y * x°-2 * y * x°-1 * y * x, 

x * y * x7-1 * y * X72 * y°-1 * x * y, x7-1* y°-1 * x7-1 

* y * x°-2 * y-1l, y * x73 * yo-1 * x * y, x°-2 * y * x72 * y * 
x°-1 * y, x * y * x * y7-1 * x * y * x7-2 * y7-1 * x, y * 

x°-1 * y°-1 * x7-1 * y°-1 * x73, y * x°-1 * y * x°-2 * yo-l 

* x°-2, x°-1 * y * x * y°-1 * x°-1 * y * x, y * x°-1 * y * 
x°-1 * y°-1 * x°-1 * y°-1, y°-1 * x * y * x°2 * y°-1, x°-1 * y 
* x°-2 * y°-l * x * yo-1 * x7-1, (x*-1 * y)°3, x72 * y°-1 * 
x°-1 * y * x°2 * yo-1, x°3 * y * x°-2 * y * x°-1 * y°-l,~ 

x°-1 * y * x°2 * y°-1 * x°-1 * y * x, x°-1 * y * x72 * y * 


x * yp * x7-1, x°2 * y * x * yo-l * x°-1 * y * x°2, y * x * Y * 
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x°-l * yp * x * y * X°-2, xX°3 * y * xX * y * XT-1, KX * Y * X7-2 * 

yr x2 * yo-l, x * y * x°-1 * y * xe yp * K-11, x * y * X71 

* y°-l * x * y * x7-2 * y, (x * y°2)°2, x7°-2 * y * x7-1 * y*-1 

* X°-2, x°-2 * y * x°-1 * yo-l, x * y * x * y-l * x * y * x71, 

ye x°-2 * y * x * yo-l, y * x7-1 * y°-1 * x°-1 * y°-1l * x°-2, 

ye x * y * xX * y * X7-Q * y7-1 * x * y7-1, x72 * y * x7-1 * y>-1 * 
x°-1l * y * x°2 * yo-l, x * y * x72 * y * x73, yr-1 * x * y * X72, 

x°-1 * y * x°-1l * y * x * y°-1 * x°-1 * y°-1 * x°-l, 

y * x°-l * y * xX°-2 * yr-1 * x°-1 * y * x7-1, x2 * y * x * Y * 

x°2 * y * x°-1, x°2 * y * x7-1 * yO-l * x°-1 * y * x°2 * y, y * 

x°2 * yo-l * x * y°-1 * x, x°-2 * y-1 * x * y, x°3 * y * X7D * 

y* x°-2, x * y * X°-2 * y * X°Q2 * y * x°-1, x73 * y°-l * x7-1 * y"2, 
y* x * y * x7-2 * y*-1 * x7-1 * y * xX, X7-2 * y * XK yT-L * xX * 
yori * x°-1, x * y * x * y°-1 * x * y°-1 * x, y * x°-1 * y * x°-2 * y, 
y* x°-l * y * x * y * X73, yo-l * x°-1 * y°-1l, y * x * y°-1 * x * 
ye x°-2 * yo-l * x°2, y * x * yp * x°-1 * yp * x°S, yrr-l * x°-1 * y * 
x°2 * yo-l * x, x°2 * y * x°-1 * WO2 * x * y°-1 * x°-1, x * y * x°-1 * 
yo2* x, y * x°-1 * y * xX * Y * X°-2 * y°-1 * x, x * y * K7-1 * y-l * 
x°-1l * y, x°-l * y* x * yp * X°2 * y, KX * y * X°-2 * y°-1 * x7-1 * 
yo-1, (x*-1, y), x7-1 * yo-1 * x * y * x, xXT-L Ky * KK yt * x, 

x* y * x * y * X73 * yT-1 * x°-1, x°-1 * y * xX * Y * KTQ * y°-1 * 
x°-1, y* x * yp * X72 *& y * xo-1 * yp * KT-1, x°-1 * yr-1l * x * y 

* x°-2 * y°-1 # x, y * x73 * y°-1 * x°-1, x°3 * y * x7-1 * y°-l, 


x°3 * y * xX°2 * y°-1 * x°-1 * y°-1, y* x * y * xX * y°-1 * Xx, 
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ye xe* y * x72 * y-l * x * yt * x, yk KK YK KK YY * XT-Q KY, 
yor-t * x°-1 * y * x°2* y * x, x°-l * yy *# xe yk KWL Ky eK KY * 
x°-1, y* x°-l * y * x * y * x * yo-l * x7-1, x°-1 * y°-1 * x7-1 * 
y* x2 * y * xX, y * X7-2 * yT-1 * x * y * x7-2 «4d; 

ts:=[Id(G1) : i in [1..105]]; 

ts[1]:=f(t); 


for iin [2..105] do ts[i]:=f(t7°A[i]); end for; 


DoubleCosets(G,sub<Glx,y>, sub<G|x,y>); 


DC:=[ f( Id(G)), f(t), f(t * x * t), F(t * x72 * t ), 


f(t * x * t * x7-1 * yv-i * t ey * t)]; 


Index (G1,IN); 
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word: =function (A) 


Sch:=SchreierSystem(G,sub<G|Id(G)>) ; 
B:=Id(G) ; 

for i in [2..#G] do 

P:=[Id(G1): 1 in [1..#Sch[i]]]; 

for j in [1..#Sch[i]] do 


if Eltseq(Sch[i])[j] eq 1 then P[j]:=f(x); end if; 


if Eltseq(Sch[i])[j] eq -1 then P[j]:=f(x)*-1; end if; 
if Eltseq(Sch[i])[j] eq 2 then P[j]:=f(y); end if; 

if Eltseq(Sch[i])[j] eq -2 then P[j]:=f(y)*-1; end if; 
if Eltseq(Sch[i])[j] eq 3 then P[j]:=f(t); end if; 

if Eltseq(Sch[i])[j] eq -3 then P[j]:=f(t)*-1; end if; 
end for; 

PP:=Id(G1) ; 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

if A eq PP then B:=Sch[i]; end if; 

end for; 

return B; 


end function; 


cst := [null : i in [1 ..Index(G1,IN)]] where null is [Integers() 
prodim := function(pt, Q, I) 
v := pt; 


for iin I do 


v := v7 (QCil); 
end for; 
return v; 


end function; 
for i := 1 to 105 do 


cst[prodim(1, ts, [i])] := [4]; 
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|]; 
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end for; 


m:=0; for i in [1..352] do if cst[i] ne [] then m:=m+1; end if; end for; nm; 


/* 105*/ 


Orbits(N); 


for iin [1..#DC] do for m,n in IN do if ts[1] eq m*(DC[i])“n 
then i; break; end if; end for; end for; 


2 


N1:=Stabiliser(N,1); 

#N1; 

24 

N1; 

Permutation group Ni acting on a set of cardinality 105 
Order = 24 = 2°3 * 3 


Generators (N1) ; 


for i,j in [1..105] do if ts[i] eq ts[j] then i,j;end if; end for; 


DOING ORBIT Nti 


S:={ Ks; 
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SS:=S7N;SS; 
SSS:=Setseq(SS) ; 

for i in [1..#SSS] do 
for g in IN do if ts[1] 
eq g*ts[Rep(SSS [i] ) [1]] 
then print SSS[i]; 


end if; end for; end for; 


es 


Nis:=sub<N|N1>; 


Orbits(N1); 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[1] eq m*(DC[i])“n 
then i; break; end if; end for;end for; 

/* 1*/ 1 goes back to [ *] 

for iin [1..#DC] do for m,n in IN do if ts[1]*ts[21] eq m*(DCLi])“n 
then i; break; break;end if; end for;end for; 

/* 2 */ /*2 things loops to [1] */ 

for iin [1..#DC] do for m,n in IN do if ts[1]*ts[5] eq m*(DC[i])“n 
then i; break; break;end if; end for;end for; 

/*4*/ 6 things move to [15] 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2] eq m*(DC[i])“n 


then i; break; break;end if; end for;end 
/*3*//*12 things move to [12] */ 

for iin [1..#DC] do for m,n in IN do if 
then i; break; break;end if; end for;end 
/* 3 */ so 12 things go to [12] 

for iin [1..#DC] do for m,n in IN do if 
then i; break; break;end if; end for;end 
/*2*/ so 12 things loop to [1] 

for iin [1..#DC] do for m,n in IN do if 
then i; break; break;end if; end for;end 
/*3 */12 things go to [12] 

for iin [1..#DC] do for m,n in IN do if 
then i; break; break;end if; end for;end 
/*4 */24 things move to [15] 

for iin [1..#DC] do for m,n in IN do if 
then i; break; break;end if; end for;end 


/*2 */24 things loop to [1] 
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for; 


ts[1]*ts[3] eq m*(DC[i])“n 


for; 


ts[1]*ts[4] eq m*(DC[i])*n 


for; 


ts[1i]*ts[6] eq m*(DC[i])“n 


for; 


ts[1]*ts[7] eq m*(DC[i])“n 


for; 


ts[1]*ts[10] eq m*(DC[i])“n 


for; 


/*DOING NEW COSET (Nt1t2) - THRD DOUBLE COSET*/ 


Sethi 
SS:=S7N;SS; 

SSS :=Setseq (SS) ; 

for i in [1..#SSS] do 


for g in IN do if ts[1]*ts[2] 


eq g*ts[Rep(SSS [i] ) [1] ] *ts[Rep(SSS[i] ) [2]] 
then print SSS[i]; 


end if; end for; end for; 


{ 

Cty 227 
} 
{ 

[ 24, 36 ] 
} 
{ 

[ 47, 85 ] 
} 
{ 

[ 89, 34 ] 
} 
{ 

[214 16. ] 
} 
{ 

[ 75, 84 ] 
z 
{ 
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As 
Ai 

[ 105, 38 ] 
- 
d. 

[St 12] 
as 


N12:=Stabiliser(N, [1,2]); 
#N12; 


2 


N1i2s:=N12; 

for n in N do if [1,2]“n eq [1,2] then N12s:=sub<N|N12s,n>; 
end if; end for; 

#N12s; 

2 

for n in N do if [1,2]“n eq [24,36] then N12s:=sub<N|N12s,n>; 
end if; end for; 

#N12s; 

6 

for n in N do if [1,2]“n eq [47,85] then N12s:=sub<N|N12s,n>; 
end if; end for; 


#N12s; 
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18 


Generators(N12s) ; 


[1,2]“N12s; 


tri:=Transversal(N,N12s) ; 

for i:=1 to #tri do 

ss:=[1,2]“tri(il; 

cst [prodim(1,ts,ss)]:=ss; 

end for; 

m:=0; for i in [1..352] do if cst[i] ne [J 
then m:=mt1; 

end if; end for;m; 


245 


Orbits(N12s) ; 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[19] eq m*(DC[i])“n 
then i; break; end if; end for;end for; 


/*3 */ 3 things will loop 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[37] eq m*(DC[i])“n 
then i; break; break;end if; end for;end for; 


/*3 */3 things will loop 


for iin [1..#DC] do for m,n 
then i; break; break;end if; 


/* 4*/ 9 things move to [15] 


for iin [1..#DC] do for m,n 


then i; break; break;end if; 


in IN do if 


end for;end 


in IN do if 


end for;end 


2, so 9 things go back to [1] 


for iin [1..#DC] do for m,n 
then i; break; break;end if; 


3, 9 things loop to [12] 


for iin [1..#DC] do for m,n 
then i; break; break;end if; 


4, 9 things extend to [15] 


for iin [1..#DC] do for m,n 
then i; break; break;end if; 


2 , 9 things go back to [1] 


for iin [1..#DC] do for m,n 
then i; break; break;end if; 


3, 9 things loop to [12] 


in IN do if 


end for;end 


in IN do if 


end for;end 


in IN do if 


end for;end 


in IN do if 


end for;end 


ts[1]*ts [2] *ts [1] 


for; 


ts[1]*ts [2] *ts [2] 


for; 


ts[1] *ts [2] *ts [3] 


for; 


ts[1] «ts [2] *ts [4] 


for; 


ts[1] «ts [2] *ts[7] 


for; 


ts[1]*ts [2] *ts [8] 


for; 


eq 


eq 


eq 


eq 


eq 


eq 
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m*(DC[i])*n 


m*(DC[i])7n 


m*(DC[i])7n 


m*(DC[i])7n 


m*(DC[i])7n 


m*(DC[i])7n 
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for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[30] eq m*(DC[i])“n 
then i; break; break;end if; end for;end for; 


2, 9 things go back to [1] 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[5] eq m*(DCLi])“n 
then i; break; break;end if; end for;end for; 


3, 18 things loop to [12] 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[14] eq m*(DC[i])“n 
then i; break; break;end if; end for;end for; 


3, 18 things loops to [12] 


/*DOING NEW COSET (Ntit5) - Fourth DC*/ 
S:={[1, 5]}; 


SS:=S7N;SS; 


SSS :=Setseq(SS) ; 

for i in [1..#SSS] do 

for g in IN do if ts[1]*ts[5] 

eq g*ts[Rep(SSS [i] ) [1] ] *ts[Rep(SSS [i] ) [2]] 
then print SSS[i]; 


end if; end for; end for; 
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{ 

[1,5] 
} 
{ 

[ 26, 63 ] 
} 
{ 

[ 20, 55 ] 
; 
{ 

[ 63, 26 ] 
} 
{ 

[3655-20] 
z 
{ 

[s;4] 
} 


N15:=Stabiliser(N, [1,5]); 
#N15; 

/* 4 */ 

N15s:=N15; 


for n in N do if [1,5]“n eq [26,63] then N15s:=sub<N|N15s,n>; end if; end for; 
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#N15s; 
/* 24*/ 


Generators(N15s) ; 


[1,5] “N15s; 


tri:=Transversal (N,N15s) ; 

for i:=1 to #tri do 

ss:=[1,5]*tri([il; 

cst [prodim(1,ts,ss)]:=ss; 

end for; 

m:=0; for i in [1..352] do if cst[i] ne [J 
then m:=mt1; 

end if; end for;m; 
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Orbits(N1i5s) ; 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[5]*ts[59] 


eq m*(DC[i])“n then i; break; end if; end for; end for; 


5, 1 thing goes to [1559] 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[5]*ts[70] 


eq m*(DC[i])“n then i; break; end if; end for; end for; 


4, 2 things loop to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


2, 6 things go back to [1] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


3, 12 things go back to [12] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4, 12 things loop to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


3, 12 things go back to [12] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


3, 12 things go back to [12] 


for iin [1..#DC] do for m,n in IN do 


eq m*(DC[i])“n then i; break; end if; 


if ts[1]*ts[5]*ts [1] 


end for; end for; 


if ts[1]*ts[5]*ts [2] 


end for; end for; 


if ts[1]*ts[5]*ts [3] 


end for; end for; 


if ts[1]*ts[5]*ts [4] 


end for; end for; 


if ts[1]*ts[5]*ts [28] 


end for; end for; 


if ts[1]*ts[5]*ts [6] 


end for; end for; 
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4, 24 things loop to [15] 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[5]*ts[12] 
eq m*(DC[i])“n then i; break; end if; end for; end for; 


2, 24 things go back to [1] 


/*DOING NEW COSET (Ntit5t59) - FIFTH DOUBLE COSET*/ 
S:={[1, 5,59]}; 


SS:=S7N;SS; 


SSS :=Setseq(SS) ; 

for i in [1..#SSS] do 

for g in IN do if ts[1]*ts[5]*ts[59] 

eq g*ts[Rep(SSS[i]) [1]]*ts [Rep (SSS [i] ) [2]] *ts [Rep (SSS [i] [3]] 
then print SSS[il; 


end if; end for; end for; 


N1559:=Stabiliser(N,[1,5,59]); 

#N1559; 

4 

N1559s:=N1559; 

for n in N do if [1,5,59]“n eq [3,11,79] then N1559s:=sub<N|N1559s,n>; 
end if; end for; 


#N1559s; 
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2520 


N1559s:=N1559; 


Generator (N1559s) ; 


tri:=Transversal (N,N1559s) ; 

for i:=1 to #tri1 do 

ss:=[1,5,59]“tri[il; 

cst [prodim(1,ts,ss)]:=ss; 

end for; 

m:=0; for i in [1..352] do if cst[i] ne [J 


then m:=mt1; 


end if; end for;m; 
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Orbits (N1559s) ; 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[5]*ts[59]*ts[1] 


eq m*(DC[i])“n then i; break; end if; end for; end for; 


4, 1 thing goes back to [15] 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[5]*ts[59]*ts [5] 


eq m*(DC[i])“n then i; break; end if; end for; end for; 


4, 1 thing goes back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4, 1 thing goes back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4, 2 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4, 2 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4, 2 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4, 2 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 


eq m*(DC[i])“n then i; break; end if; 


270 


if ts[1]*ts [5] *ts [59] *ts [59] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [3] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [4] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [19] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [21] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [28] 


end for; end for; 


4, 2 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4, 2 things go back 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,2 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,2 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,2 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 


eq m*(DC[i])“n then i; break; end if; 
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if ts[1]*ts [5] *ts [59] *ts [60] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [61] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [70] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts[77] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [2] 


end for; end for; 


if ts[1]*ts[5]*ts [59] *ts [6] 


end for; end for; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 


eq m*(DC[i])“n then i; break; end if; 
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if ts[1]*ts [5] *ts [59] *ts [7] 


end for; end for; 


if ts[1]*ts[5]*ts [59] *ts [9] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [10] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [11] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [12] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [13] 


end for; end for; 
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4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[5]*ts[59]*ts[14] 
eq m*(DC[i])“n then i; break; end if; end for; end for; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[5]*ts[59]*ts[15] 
eq m*(DC[i])“n then i; break; end if; end for; end for; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[5]*ts[59]*ts[16] 
eq m*(DC[i])“n then i; break; end if; end for; end for; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[5]*ts[59]*ts[18] 
eq m*(DC[i])“n then i; break; end if; end for; end for; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[5]*ts[59]*ts [20] 
eq m*(DC[i])“n then i; break; end if; end for; end for; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,4 things go back to [15] 
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if ts[1]*ts [5] *ts [59] *ts [24] 


end for; end for; 


if ts[1]*ts [5] *ts[59]*ts [31] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [32] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [386] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [37] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [40] 


end for; end for; 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,4 things go back to [15] 


for iin [1..#DC] do for m,n in IN do 
eq m*(DC[i])“n then i; break; end if; 


4 ,4 things go back to [15] 
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if ts[1]*ts [5] *ts [59] *ts [47] 


end for; end for; 


if ts[1]*ts [5] *ts [59] *ts [50] 


end for; end for; 


Appendix N 


MAGMA CODE for 


Construction of L(2,11) over N 


S:=Sym(8) ; 

xx:=S!(1, 4, 2, 7)(3, 5, 8, 6); 

yy reo! Cy. 7) (24. 6) (Sy B).4, 8)¢ 

N:=sub<S|xx,yy>; 
G<x,y,t>:=Group<x,y,t|x*4,y°2, (x*y) 73,072, (t, y*x) , (x7 2*t) 5, 
Cy*t) 710, Cy#t7(x72))°2,x°2 * t*¥ x* EK KK EK KK TK Y 
kt * x7-1 * t * x72 * t *¥ xX * b>; 

#G; 

/* 1320 */ 

#N; 

/* 24 */ 


#sub<G|x,y>; 
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/* 24 */ 

#DoubleCosets(G, sub<G|x,y>,sub<G|x,y>); 
/* 6 */ 

f ,G1,k:=CosetAction(G,sub<G|x,y>); 

#k; 

/* 1 */ 

#G1; /*1320 */ 


CompositionFactors (G1) ; 


for iin [0..2] do for j in [0..1] do printf "%o", i;j,xx*i*yy7j; 


end for; end for; 


IN:=sub<G1|f (x) ,f(y)>; 

ts. 2= [1d 661)? ain i ey 8 

ts([1]:=£(t); ts(2]:=£(t7(x*2)); ts[3] :=f(t*(x7*2*y)*2); 
ts[4] :=£(t*x) ;ts[5] :=£(t* (x7 2*y*x*2)) ; 


ts[6] :=f(t* (x7*2*y));ts(7]:=£(t7*y); ts[8] :=£(t7 (x*y)); 


DoubleCosets(G,sub<Glx,y>, sub<Gl|x,y>); 


DC:=[ f( Id(G)), fC t), ft * x*t), F(t *¥x*t*ex*t), 


fCt*x*t*e xe te xe td), FC xe te y et * x7-1 * «Odd; 


Index(G, sub<G|x,y>); 
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/* 55 */ 


cst := [null : i in [1 ..55]] where null is [Integers() | ]; 
prodim := function(pt, Q, I) 
v := pt; 


for iin I do 


v := v7 (QCil); 
end for; 
return v; 


end function; 
for i := 1 to 8 do 
cst[prodim(1, ts, [i])] := [4]; 


end for; 


m:=0; for iin [1..55] do if cst[i] ne [] then m:=m+1; end if; end for; nm; 
/* 4 x/ 


> for i,j in [1..8] do if tsli] eq ts[j] then i,j; break; end if; end for; 


Orbits(N) ; 


for i in [1..#DC] do for m,n in IN do if ts[1] eq m*(DC[i])“n then i; 


break; end if; end for; end for; 


/* 2 */ /* this means it goes to the second DC, as predicted */ 


N1i:=Stabiliser(N,1); 
Generators(N1); 


Orbits(N1); 


for iin [1..#DC] do for m,n in IN 
then i; break; end if; end for;end 
/* 1 */ /* goes back */ 

for iin [1..#DC] do for m,n in IN 
then i; break; end if; end for;end 
/* 1 *//* goes back */ 

for iin [1..#DC] do for m,n in IN 
then i; break; end if; end for;end 
/* 3 */ /* NEW */ 

for iin [1..#DC] do for m,n in IN 
then i; break; end if; end for;end 


/* 3 *//* NEW */ 


/*DOING NEW COSET (Nt1it2)*/ 
S:={[1,2]}; 


SS:=S7N;SS; 


SSS :=Setseq (SS) ; 
for iin [1..#SSS] do 


for g in IN do if ts[1]*ts[2] 


do if ts[i]*ts[t1] 


for; 


do if ts[1]*ts[5] 


for; 


do if ts[i]*ts[2] 


for; 


do if ts[i]*ts[4] 


for; 
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eq m*(DC[i])*n 


eq m*(DC[i])“n 


eq m*(DC[i])“n 


eq m*(DC[i])“n 


eq g*ts[Rep(SSS [i] ) [1] ] *ts[Rep(SSS[i] ) [2]] 
then print SSS[i]; 


end if; end for; end for; 


/* 
{ 

ieee 
} 
35 

bByO.] 
7 


*//* this means these two things are equal */ 


N12:=Stabiliser(N, [1,2]); 
#N12; 
/* 1 */ 


N1i2s:=N12; 


for n in N do if [1,2]“n eq [5,6] then N12s:=sub<N|N12s,n>; 


end if; end for; 
#N12s; 


fe 2 8/ 


Generators(N12s) ; 


[1,2]“N12s; 
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tri:=Transversal (N,N12s); 
for i:=1 to #tri do 
ss:=[1,2]“tri(il; 

cst [prodim(1,ts,ss)]:=ss; 


end for; 


m:=0; for iin [1..55] do if cst[i] ne [J 


then m:=mt1; 
end if; end for;m; 


/* 16 */ 


Orbits(N12s) ; 


for iin [1..#DC] do for m,n in IN 
then i; break; end if; end for;end 
/* 3 *//* loops */ 

for iin [1..#DC] do for m,n in IN 
then i; break; end if; end for;end 
/* 2*//* goes back */ 

for iin [1..#DC] do for m,n in IN 
then i; break; end if; end for;end 
/* 4 *//* NEW */ 

for iin [1..#DC] do for m,n in IN 


then i; break; end if; end for;end 


do if ts[1]*ts[2]*ts[1] 


for; 


do if ts[1]*ts[2]*ts[2] 


for; 


do if ts[1]*ts[2]*ts[3] 


for; 


do if ts[1]*ts[2]*ts[7] 


for; 
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eq m*(DC[i])“n 


eq m*(DC[i])“n 


eq m*(DC[i])“n 


eq m*(DC[i])“n 


/* 4 *//* NEW */ 


/*DOING NEW COSET (Ntit2t3)*/ 
S:={[1,2,3]}; 


$8:=S7N;SS; 


SSS :=Setseq (SS) ; 

for i in [1..#SSS] do 

for g in IN do if ts[1]*ts[2]*ts[3] 

eq g*ts[Rep(SSS[i] ) [1] ] *ts[Rep(SSS[i] ) [2]]*ts [Rep (SSS [i] ) [3]] 
then print SSS[i]; 

end if; end for; end for; 

/* f{ 


[ 1,2,3 ] 


*/ 


N123:=Stabiliser(N,[1,2,3]); 
#N123; 

/* 1 */ 

N123s :=N123; 

#N123s; 

/* 1*/ 


Generators (N123s) ; 
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fee 2 #, 


tri:=Transversal (N,N123s) ; 

for i:=1 to #tri do 

ss:=[1,2,3]*trilil; 

cst [prodim(1,ts,ss)]:=ss; 

end for; 

m:=0; for iin [1..55] do if cst[i] ne [J 
then m:=mt1; 

end if; end for;m; 


/* 40*/ 


Orbits (N123s) ; 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[3]*ts[1] eq 
m*(DC[i])“n then i; break; end if; end for; end for; 

/* 6 */ /* NEW */ 

for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[3]*ts[2] eq 
m*(DC[i])*n then i; break; end if; end for; end for; 

/* 4 */ /* loops to itself*/ 

for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[3]*ts[3] eq 
m*(DC[i])“n then i; break; end if; end for; end for; 

/* 3*/ /* goes back*/ 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[3]*ts[4] eq 
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m*(DC[i])“n then i; break; end if; end for; end for; 

/*5 */ /* NEW */ 

for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[3]*ts[5] eq 
m*(DC[i])“n then i; break; end if; end for; end for; 

/* 6 */ /* equal to new */ 

for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[3]*ts[6] eq 
m*(DC[i])“n then i; break; end if; end for; end for; 

/* 4*/ /* loops */ 

for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[3]*ts[7] eq 
m*(DC[i])“n then i; break; end if; end for; end for; 

/* 3 */ /* goes back */ 

for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[3]*ts[8] eq 
m*(DC[i])“n then i; break; end if; end for; end for; 


/* 5 */ /* equal to new */ 


/*DOING NEW COSET (Ntit2t3t4)x*/ 
S:={[1, 2,3,4]}; 


SS:=S7N;SS; 


SSS :=Setseq(SS) ; 

for i in [1..#SSS] do 

for g in IN do if ts[1]*ts[2]*ts[3]*ts[4] 

eq g*ts[Rep(SSS[i]) [1]]*ts [Rep (SSS [i] ) [2]] *ts [Rep (SSS [i] ) [3] ] * 


ts[Rep(SSS[i])[4]] then print SSS[i]; end if; end for; end for; 
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[ 1, 2, 3, 4] 


[ 8, 1, 3, 6 J 


rc 


2, 8, 3, 5] 


eh. 


N1234:=Stabiliser(N,[1,2,3,4]); 

#N1234; 

/* 1 */ 

N1234s : =N1234; 

for n in N do if [1,2,3,4]°n eq [8,1,3,6] then N1234s:=sub<N|N1234s,n>; 
end if; end for; 

#N1234s ; 


/* 3 */ 


Generators (N1234s) ; 


[1,2,3,4]“N1234s; 
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tri:=Transversal (N,N1234s) ; 

for i:=1 to #tri do 

ss:=[1,2,3,4]“tri[il; 

cst [prodim(1,ts,ss)]:=ss; 

end for; 

m:=0; for iin [1..55] do if cst[i] ne [J 
then m:=mt1; 

end if; end for;m; 


/* 48 */ 


Orbits (N1234s) ; 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]* 
ts[3]*ts[4]*ts[3] eq m*(DC[i])“n then i; break; end if; 

end for; end for; 

/* 5 */ /* loops to itself */ 

for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts [3] 
*ts[4]*ts[7] eq m*(DC[i])“n then i; break; end if; end for; 
end for; 

/* loops to itself */ 

for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[3] 
*ts[4]*ts[1] eq m*(DC[i])“n then i; break; end if; end for; 


end for; 


/* 4 */ /* goes back */ 

for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts [3] 
*ts[4]*ts[4] eq m*(DC[i])“n then i; break; end if; end for; 
end for; 


/* 4 */ /* goes back */ 


/*DOING NEW COSET (Ntit2t3t1)*/ 
S:={[1, 2,3,1]}; 


SS:=S7N;SS; 


SSS :=Setseq(SS) ; 

for i in [1..#SSS] do 

for g in IN do if ts[1]*ts[2]*ts[3]*ts[1] 

eq g*ts[Rep(SSS[i]) [1]]*ts [Rep (SSS [i] ) [2]] *ts [Rep (SSS [i] ) [3] ] * 


ts[Rep(SSS[i])[1]] then print SSS[i]; end if; end for; end for; 


/* 
a 

bth Betas, 4 
} 
{ 

C6, 7, 4,6] 
} 
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[ 4, 5, 6, 4 J 


uy 


N1231:=Stabiliser(N,[1,2,3,1]); 

#N1231; 

/* 1 */ 

N1231s:=N1231; 

for n in N do if [1,2,3,1]“n eq [4,5,6,4] then N1231s:=sub<N|N1231s,n>; 
end if; end for; 

#N1231s; 

/* 4 */ 


Generators (N1231s) ; 


[1,2,3,1]°N1231s; 


tri:=Transversal (N,N1231s) ; 
for i:=1 to #tri do 
ss:=[1,2,3,1]*tri[il; 

cst [prodim(1,ts,ss)]:=ss; 


end for; 
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m:=0; for iin [1..55] do if cst[i] ne [J 
then m:=mt1; 
end if; end for;m; 


/* 54 */ 


Orbits (N1231s) ; 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[3]*ts[1]*ts[1] 
eq m*(DC[i])“n then i; break; end if; end for; end for; 

/* 4 *//* goes back */ 

for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[3]*ts[1]*ts [2] 
eq m*(DC[i])“n then i; break; end if; end for; end for; 


/* 4 *//* goes back */ 
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Appendix O 


MAGMA CODE for 


Construction of M5. over A7 


S:=Sym(105) ; 

xx:=S!(1, 3, 7, 15, 29, 45)(2, 5, 11, 22, 
42, 66) (4, 9, 18, 34, 26, 46)(6, 13, 25)(8, 16, 31, 52, 
39, 61)(10, 20, 38, 58, 78, 75)(12, 24, 14, 27, 47, 53) (17, 
33, 48, 32, 54, 73)(19, 36, 30, 50, 63, 85)(21, 40, 62, 83, 23, 
43) (28, 41, 64, 87, 69, 90)(35, 57, 76, 97, 80, 100)(37, 59, 
79, 70, 92, 86)(44, 67, 88, 94, 91, 49)(51, 71, 65, 77, 98, 
104) (55, 74, 56, 72, 95, 84)(60, 81, 101) (68, 89, 82)(93, 103, 
99, 102, 105, 96); 

yy:=S!(1, 2, 4, 8)(3, 6, 12, 23)(5, 10, 19, 35)(7, 14, 26, 45) 

(9, 17, 32, 53)(11, 21, 39, 13)(15, 28, 47, 69) (16, 30, 49, 66) 


(18, 27, 29, 48)(20, 37, 58, 77)(22, 41, 63, 84)(24, 44, 54, 36) 
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(25, 43, 62, 82)(31, 51, 42, 65)(33, 55, 34, 56)(38, 60, 80, 81) 
(40, 46, 68, 73)(50, 70, 91, 59)(52, 72, 94, 87)(57, 75) (61, 76, 
67, 78)(64, 86)(71, 93, 79, 99)(74, 96, 90, 102)(83, 88, 89, 85) 
(92, 100, 104, 97)(95, 98)(101, 103); 


N:=sub<S|xx,yy>; 


#N ; 2520 


G<x,y,t>:=Group<x,y,t| 


xX * y°-2* x°2* yo2* x, 

x°-1 * y°-2 * x°-1 * y°-1 * x * V2 * x * y-l , 

x°-1 * y°-l * x°-3 * y°-1 * x°3 * y°-1 * x°-2 , 
(y*-1 * x7-1)°4 * (Cy * x)72* y * x7-1 , 

(y7-1 * x7-2)°2* y°-1 * x72 * y * x * y°-1 * x73 * y * x7-1, 
t°2, (t, y* x2 * y*e x* y * xT-1L ey * x”), 

(t, x72 * (y * x )72* y * x7-2), (t,x * y * x72 * y * x7-1 * 
y* x * yo-1 * x), Cly * x)°2 * y * x7-2 * y°-1 * xet (x * 
y * x°2 * y * x73))°3, x°-1 * y * KT-1L Ky kK KK YY KK KY 
* x * ypo-l * x*et * x * t * KT-1 * yo-l * t * y * b>; 

f ,G1,k:=CosetAction(G,sub<G|x,y>); 


CompositionFactors (G1) ; 
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#DoubleCosets (G,sub<G|x,y>,sub<G|x,y>) ; 


3 


#G1; 


443520 


for iin [0..5] do for j in [0..3] do printf "4o", i;j,xx*i*yy7j; 


end for; end for; 


IN:=sub<G1lf(x) ,f(y)>; 

A:=[ Id(G), (y*-1 * x)°2, x * y°-1 * x * y * x°2 * y, 
x°Q2* y* x * y * x * y7-l * 

x°2, x°2 * y * x°-1 * y * x7-1 * y * x72, 

x* yp * x2 * y * xX *¥ V2 * x°-1, x7-1 

*y, xX * y * x * yorl * x°2, yw2* x * y * x°2 * y * x7-l, 
x*y * x * y * x7-1 

xy, x°-1l * y * xX°-2 *% y * X72, K-22 * y * XK Y * X, 
(y * x * y*-1)72, x72 * 

yori * x7-1 * y°-1 * x°-1, x°-1 * ywo2 * x * y * x7-l, 
x°2 * y°-1 * x * y°-1 * x, 

x°-1 * y°-1 * x°-1 * y * x°-2 * y°-1 * x7-1, 

x°-2 * y * x * y * X°-2 * yl, 

yorl * x * y * x°-2, y°-1 * x * y * x°-2 * y°-1 * x, 


x * y * x7-1 * y * x, x7-1 


ey * x * yp * x * yo-l, x°-1 * yo-l * x * y * XQ * y°-l * x72, 
x * y--l* x *y 

*x°2 * yo-l * x, x°-1 * y * xX *¥ y © Xe yT-1 * x°-1 * y-il * x, 
x°-1 * y°-1, yx x°-1 * y * x72 * y°-1 * x * y°-1 * x°-l, 

x * y * x * yo-1 * x°-1 * y°-1 * x73, 

y* x°-l * y * x*-l * yy * xD * yy KX KY, 

x°-2 * y * x * y * X°2 * y°-1 * x, 

x°-1 * y * x°-2 * y * x°-1 * y * x, 

x * yp * x°-1 * y * X72 * y°-1 * x * y, x7-1* y°-1 * x7-1 

* y * x°-2 * y°-1l, y * x73 * yo-1 * x * y, x°-2 * y * x72 * y * 
x°-1 * y, x * y * x * y7-1 * x * y * x7-2 * y7-1 * x, y * 

x°-1 * yorl * x7°-1 * y°-1 * x°3, y * x7-1 * y * x7-2 * yori 

* x°-2, x°-1 * y * x * y°-1 * x°-1 * y * x, yp * x°-1 * y * 

x°-1 * y°-1 * x°-1 * y°-1, y-1 * x * y * x°2 * y°-1, x°-1 * y 
* X72 * yO-1 * x * y7-1 * x7-1, (x*-1 * y)73, x72 * y7-1 * 
x°-1 * y * x°2 * yo-1, x°3 * y * x°-2 * y * x°-1 * y°-l, 

x°-1 * y * x°2 * y°-1 * x°-1 * y * x, x°-1 * y * x72 * y * 

x * yp * x7-1, x°2 * y * x * yo-l * x°-1 * y * x°2, y * x * y * 
x°-l * y* x * yp *# x7-2, XS * yp * X * y *F XT-1, KF VY * XT-D * 
yr x2 * yo-l, x * y * x°-1 * y * xe yp * K-11, x * y * x7-l 

* yo-l * x * y * x7-2 * y, (x * y°2)°2, x°-2 * y * x7-1 * yl 
* X°-2, x°-2 * y * x°-1 * yo-l, x * y * x * y-l * x * y * x7-l, 


ye x°-2 * y * x * yo-l, y * x7-1 * y°-1 * x°-1 * y°-1l * x°-2, 


yeu xe yp * kK * yp * K°-2 * yO-1l * x * yo-1l, x°2 * y * x7-1 * y™-il 
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x°-1 * y * x°2 * y°-1, x * y * X72 * y * X73, yC-l * x * y * x72, 

x°-1 * y * x°-1 * y * x * y°-1 * x°-1 * y°-1 * x°-l, 

y * x°-1l * y * xX°-2 * y°-1 * x°-1 * y * x7-1, x2 * y * x * Y * 

x°2 * y * x°-1, x°2 * y * x7-1 * yO-1 * x°-1 * y * x°2 * y, y * 

x°2 * yC-l * x * y°-l * x, x°-2 * y°-1 * x * y, x73 # y * XD * 

y*e x°-2, x * y * X°-2 * y * XT2 * y * K7-1, x73 * yO-l * x°-1 * y°2, 
yr x * y * x°-2 * yC-l * x7-1 * y * x, x7-2 * y * x * yo-l * x * 
yr-1l * x°-1, x * y * x * y°-l * x * y°-1 * x, y * x°-1 * y * x7°-2 * y, 
y*« x°-l * y * x * y * X73, yr-l * x°-1 * y°-1, y * x * y°-1 * x * 

y * x°-2 * yo-1 * x72, y*e x *¥ y * xX7-1 * y * x73, yo-1 * x°-1 * y * 
x°2 * yo-l * x, x°2 * y * x°-1 * yW°2 * x * y°-1 * x°-1, x * y * x°-1 * 
yo2* x, y * x°-1 * y * xX * Y * X°-2 * y°-1 * x, x * y * x7-1 * y-l * 
x°-1 * y, x°-l * yy * x * yp * X°2 * y, KX * Y * X°-2 * y°-1 * x7-1 * 
yo-1, (x*-1, y), x7-1 * yo-1 * x * y * x, xT-1L Ky KKK yt * x, 

x* yp * x * yp * x73 * yT-1l * x7-1, x°-1 * y * x * y * X72 * y°-1 * 
x°-1, y* x * yp * XQ * y * xX°-1 * yp * KT-1, x°-1 * y-1l * x * y 

* x°-2 * y°-1 * x, y * x73 * y°-1 * x°-1, x°3 * y * x°-1 * y°-il, 

x73 * y * xX°2 * y°-1 * x°-1 * y°-1, y* x *¥ y * KX * y°-1 * xX, 

yr x * y * x72 * yo-l * x * yt ex, y KX KY KX KY K XT-D KY, 
yori * x°-1 * y * x°2 * y * x, XT-L Ky eK XK y * xT-L Ky KK KY * 
x°-1, y* x°-l * yp * x * y * x * yO-l * x°-1, x°-1 * y°-1 * x°-1 * 
y* x°2 * y * xX, y * X7-2 * y7-1 * x ey * x7-2 «4d; 

ts:=[Id(G1) : i in [1..105]]; 


ts[1]:=f(t); 
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for iin [2..105] do ts[i]:=f(t7*A[i]); end for; 


DoubleCosets(G,sub<G|x,y>, sub<Glx,y>); 


DC:=[ f( Id(G)), fC t), f(t * x * t)]; 


Index (G1,IN) ; 


176 


cst := [null : i in [1 ..Index(G1,IN)]] where null is [Integers() | ]; 
prodim := function(pt, Q, I) 
v i= pt; 


for iin I do 


v := v°(QCil); 
end for; 
return v; 


end function; 
for i := 1 to 105 do 
cst[prodim(1, ts, [i])] := [4]; 


end for; 


m:=0; for iin [1..176] do if cst[i] ne [] then m:=m+1; end if; end for; nm; 


105 


Orbits(N); 


296 


N1i:=Stabiliser(N,1); 
#N1; 
24 


Generators (N1) ; 


DOING ORBIT Nti 

Sr=C (113383 

SS:=S7N;SS; 

SSS :=Setseq(SS) ; 

for i in [1..#SSS] do 
for g in IN do if ts[1] 
eq g*ts[Rep(SSS [i] ) [1]] 
then print SSS[i]; 


end if; end for; end for; 


rae ee 


Nis:=sub<N|N1>; 


Orbits(N1); 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[1] eq m*(DC[i])“n 


then i; break; end if; end for;end for; 
/* 1*/ 1 goes back to [ *] 

for iin [1..#DC] do for m,n in IN do if 
then i; break; break;end if; end for;end 
/* 2*/ /*2 things loop to [1 ] */ 

for iin [1..#DC] do for m,n in IN do if 
then i; break; break;end if; end for;end 
/*2*/ 6 things loop to [1 ] 

for iin [1..#DC] do for m,n in IN do if 
then i; break; break;end if; end for;end 
/*3*//*12 things [12 ] */ 

for iin [1..#DC] do for m,n in IN do if 
then i; break; break;end if; end for;end 
/* 3 */ so 12 things go to [ 12] 

for iin [1..#DC] do for m,n in IN do if 
then i; break; break;end if; end for;end 
/*2*/ so 12 things loop to [1] 

for iin [1..#DC] do for m,n in IN do if 
then i; break; break;end if; end for;end 
/* 3*/12 things go to [12 ] 

for iin [1..#DC] do for m,n in IN do if 
then i; break; break;end if; end for;end 
/* 2*/24 things loop to [1 ] 


for iin [1..#DC] do for m,n in IN do if 
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ts[1]*ts[21] eq m*(DC[i])“n 


for; 


ts[1]*ts[5] eq m*(DC[i])“n 


for; 


ts[1]*ts[2] eq m*(DC[i])“n 


for; 


ts[1]*ts[3] eq m*(DC[i])“n 


for; 


ts[1i]*ts[4] eq m*(DC[i])“n 


for; 


ts[1]*ts[6] eq m*(DC[i])“n 


for; 


ts[1i]*ts[7] eq m*(DC[i])“n 


for; 


ts[1]*ts[10] eq m*(DC[i])“n 


then i; break; break;end if; end for;end for; 


/*2 */24 things loop to [ 1] 


DOING ORBIT Ntit2 third double coset 
S:={£1,2)338; 

SS:=S7N;SS; 

SSS :=Setseq (SS) ; 

for i in [1..#SSS] do 

for g in IN do if ts[1]*ts[2] 

eq g*ts[Rep(SSS[i] ) [1]]*ts[Rep(SSS [i] ) [2]] 
then print SSS[i]; 


end if; end for; end for; 


{ 

Ct 25] 
z 
{ 

[ 24, 36 ] 
; 
{ 

[ 41, 56 ] 
; 
{ 

[ 87, 69 ] 
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47, 


89, 


49, 


21, 


63, 


81, 


94, 


75, 


85 ] 


34 ] 


22 | 


15 J 


39 ] 


4] 


88 ] 


84 ] 
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{ 

(335 tt] 
} 
{ 

[ 30, 52 ] 
} 
{ 

[ 60, 54 ] 
; 
{ 

[ 105, 38 ] 
} 
{ 

Liha 124 
z 
{ 

[ 101, 80 ] 
} 


N12:=Stabiliser(N, [1,2]); 

#N12; 

2 

for n in N do if [1,2]“n eq [24,36] then N12s:=sub<N|N12s,n>; end if; end for; 


#N12s; 
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6 
for n in N do if [1,2]“n eq [41,56] then N12s:=sub<N|N12s,n>; end if; end for; 
#N12s; 


36 


Generators(N12s) ; 


[1,2]“N12s; 


tri:=Transversal (N,N12s); 

for i:=1 to #tri do 

ss:=[1,2]*trilil; 

cst [prodim(1,ts,ss)]:=ss; 

end for; 

m:=0; for iin [1..176] do if cst[i] ne [J 
then m:=mt1; 

end if; end for;m; 


175 


Orbits(N12s) ; 


for iin [1..#DC] do for m,n in IN do if ts[1]*ts[2]*ts[19] eq 


m*(DC[i])“n then i; break; end if; end for;end for; 


3, 6 things loop to [12] 


for iin [1..#DC] do for m,n in IN 
m*(DC[i])“n then i; break; end if; 
3, 9 things loop to [12] 

for iin [1..#DC] do for m,n in IN 
m*(DC[i])“n then i; break; end if; 
2, 18 things go back to [1] 

for iin [1..#DC] do for m,n in IN 
m*(DC[i])“n then i; break; end if; 


2, 18 things go back to [1] 


for iin [1..#DC] do for m,n in IN 
m*(DC[i])“n then i; break; end if; 
2, 18 things go back to [1] 

for iin [1..#DC] do for m,n in IN 
m*(DC[i])“n then i; break; end if; 


3, 36 things loop to [12] 


do if ts[1]*ts[2]*ts[8] 


end for;end for; 


do if ts[1]*ts[2]*ts[1] 


end for;end for; 


do if ts[1]*ts[2]*ts[2] 


end for;end for; 


do if ts[1]*ts[2]*ts[3] 


end for;end for; 


do if ts[1]*ts[2]*ts[5] 


end for;end for; 


eq 


eq 
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Appendix P 


MAGMA CODE Wreath 
Product Symmetric 
Presentation and Building 


Progenitor 


N:=WreathProduct (CyclicGroup(5) ,CyclicGroup(5)) ; 
#N; 


/* 15625*/ 


/*Note: i found my xx and yy by using the code: 
Generators(N); */ 


S:=Sym(25) ; 
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xx:=S!(1, 6, 11, 16, 21)(2, 7, 12, 17, 22)(3, 8, 13, 18, 23)(4, 9, 
14, 19, 24)(5, 10, 15, 20, 25); 

yy:=S!(1, 2, 3, 4, 5); 

N:=sub<S|xx,yy>; 


#N; /*15625*/ 


FPGroup (N) ; 


NN<a,b>:=Group<a,bla*5, b°5, 
(b, aol, b) > 
a * b7-1 * a7-2 * b°-1 * aT 2 * b* a -2* bdb* a>; 


#NN;/* 15625*/ 


word: =function (A) 
Sch:=SchreierSystem(NN,sub<NN|Id(NN)>) ; 

for iin [2..#NN] do 

P:=[Id(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Sch[i]] do 

if Eltseq(Sch[i])[j] eq 1 then P[j]:=xx; end if; 

if Eltseq(Sch[i])[j] eq -1 then P[j]:=xx*-1; end if; 
if Eltseq(Sch[i])[j] eq 2 then P[j]:=yy; end if; 

if Eltseq(Sch[i])[j] eq -2 then P[j]:=yy*-1; end if; 
end for; 


PP:=Id(N) ; 


for k in [1..#P] do 

PP:=PP*P[k]; end for; 

if A eq PP then B:=Sch[i]; end if; 
end for; 

return B; 


end function; 


N1i:=Stabiliser(N,1); 
#N1; 
/* 625 */ 


Generators(N1); 


A:=N!(11, 12, 13, 14, 15)(16, 17, 18, 19, 20); 


word (A) ; 
/*a°2 * b * a * Db * av 2*/ 
B:=N!(11, 15, 14, 13, 12); 
word (B) ; 


/* a°-2 * b7-1 * a7 2/ 


C:=N!(6, 8, 10, 7, 9)(16, 17, 18, 19, 20)(21, 24, 22, 25, 23); 


word(C) ; 


/* a * b°-2 * a * D* at2 * DQ * a ¥/ 
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D:=N!(11, 13, 15, 12, 14)(16, 19, 17, 20, 18)(21, 23, 25, 22, 24); 


word(D) ; 
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/* a * bD°2 * a * D°-2 * a * DTD * a2 */ 


G<x,y,t>:=Group<x,y,tIx75, y75, 

(y, x*-1, y) , 

x * y°-l * x°-2 * y°-1 * x°2 * y * xX°-2 * y * x, 672, 
(t,x°2 * y * x * y * x72), (t,x°-2 * y°-1 * x72), 


(t,x * y°-2 * x * y * x72 * y°2 * x), (t,x * y°2 * x * y°-2 * x * V2 * x72)>; 


/* to verify progenitor is correct, do the following : */ 
sub<N|xx*2 * yy * xx * yy * xXx°2, xx7-2 * yy°-1 * xx72, 
XX * yy°-2 * XxX ¥* yy * Xx°2 * yy°2 * xx, xx * yy°2 * xx * yy°-2 * 


xx * yy°2 * xx72> eq N1;/* true *//* so our progenitor is correct*/ 


Orbits(N1); 


temp:={2,3,4,5,6,11,16,21}; 


for n in N do for j in temp do if 1°n eq j then word(n),j; 


temp:=temp diff {j}; end if; end for; end for; 


C:=Classes(N); C; 


for i in [2..#C] do i, C[i][3];word(c[i] [3]); 


Orbits (Centraliser(N,C[i][3])); end for; 


for j in [2..#N] do for i in [1..#Setseq(Set(N))] do if 


1*Setseq(Set(N)) [i] eq j then j,word(Setseq(Set(N)) [i]); 


break; end if; end for; end for; 


/* to find the isom type of wreath product */ 


> 


> 


> 


> 


S:=Sym(35) ; 


siv=o!(it, 16,215.26 531); 


svi:=S$!(12,17,22, 27,32); 


e1:=S!(13,18,23,28,33); 


ni:=S!(14,19,24,29,34) ; 


ten1:=S!(15,20,25,30,35); 


kis:=S!(11,12,13,14,15) (16,17,18, 19,20) (21,22,23,24,25) (26, 


27, 28,29, 30) (31,32,33,34,35) ; 


> wr:=sub<S|si,svi,e1,ni,teni,kis>; 


> 


Permutation group wr 


wr; 


el 
ct? 
(13, 
(14, 
(15, 
C15 


(26, 


16, 
17, 
18, 
19, 
20, 
12, 


27, 


21, 
22, 
23, 
24, 
25, 
13, 


28, 


26, 
27, 
28, 
29, 
30, 
14, 


29, 


acting on a set of cardinality 35 

31) 

32) 

33) 

34) 

35) 

1S) C164 17. 1S, 19s 20) C2d.. 22. 294: 240725) 


30) (31, 32, 33, 34, 35) 
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> CompositionFactors (wr) ; 


G 
| 


* 


1 


> NL:=NormalLattice(wr) ; 


> NL; 


Normal subgroup lattice 


[12] 


eh 


Cyclic(5) 


Cyclic(5) 


Cyclic(5) 


Cyclic(5) 


Cyclic(5) 


Cyclic(5) 


Order 15625 Length 1 


Order 3125 


Maximal Subgroups: 6 7 8 9 10 11 


Maximal Subgroups: 5 
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Order 


Order 


Order 


Order 


Order 


Order 


Order 


Order 


Order 


Order 


3125 


3125 


3125 


3125 


3125 


625 


125 


25 


Length 


Length 


Length 


Length 


Length 


Length 


Length 


Length 


Length 


Length 


> for iin [1..#NL] do if 


1 


2 


> NL[7]; 


1 Maximal 


1 Maximal 


1 Maximal 


1 Maximal 


1 Maximal 


1 Maximal 


1 Maximal 


1 Maximal 


1 Maximal 


1 Maximal 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 
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IsAbelian(NL[i]) then i; end if; end for; 
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Permutation group acting on a set of cardinality 35 
Order = 3125 = 575 
(15, 20, 25, 30, 35) 
(ily Bh) 26 521, 16) (12.17. 225 274.32) 
(12132527 224. 1) 4135, 218,y.284; 28, 33) 
(13, 33, 28, 23, 18)(14, 19, 24, 29, 34) 
(14, 34, 29,24, “19)(15, -20,.'25, 30; 35) 
> X:=AbelianGroup(GrpPerm, [5,5,5,5,5]); 
> IsIsomorphic(NL[7] ,X); 
true Mapping from: GrpPerm: $, Degree 35, Order 5°5 to GrpPerm: X 
Composition of Mapping from: GrpPerm: $, Degree 35, Order 5°5 to GrpPC and 
Mapping from: GrpPC to GrpPC and 


Mapping from: GrpPC to GrpPerm: X 


H<a,b,c,d,e>:=Group<a,b,c,d,ela“5,b°5,c75,d°5, e5,(a,b), (a,c), 
Cay). Gaye) 4. Ub ye) Cbyd), 0b, 6) ,. Ce,d)s. (exe), “Cde) >; 
#H; 


3125 


> q,ff:=quo<wr|NL[7]>; 

> q; 

Permutation group q acting on a set of cardinality 5 
Order = 5 


Id(q) 
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Td(q) 
Id(q) 
Td(q) 
Td(q) 
(1, 2, 3, 4, 5) 
> IsAbelian(q) ; 
true 
> T:=Transversal (wr,NL[7]); 


> HT; 


Id (wr) , 

(14, 12,13, 14,.15)(16, 17,18 19; 20) (21; 22, 23, 24, 25) 

(26, 27, 28; 29, 30)(81, 32,33; 34,.35), (11,13, 15, 12; 14) 
(16, 18, 20, 17, 19)(21, 23, 25, 22, 24)(26, 28, 30, 27, 29)(31, 
335.35, 32, 34), 1g 44, 19. 25-18). 46) 99,. 175. 205. 18)or, “24, 
00°. 95. 93) (965.99, 27,80, 28)(81y 34,32) 35; -33)5. (143. 15% 14, 
£35. 1216 5.205. 195.185. 17) 1, 25; 94, 23.99). (96..-305 29. 28, 
OT) 31,35: 345° 33) 32) 


@} 


/* The generators of NL[7]=( <A>, <B>, <C> , <D>, <E>) */ 


A:=wr!(15, 20, 25, 30, 35); 
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B:=wr! (11, 31, 26, 21, 16)(12, 17, 22, 27, 32); 


C:=wr!(12, 32, 27, 22, 17)(13, 18, 23, 28, 33); 


D:=wr! (13, 33, 28, 23, 18)(14, 19, 24, 29, 34); 


E:=wr!(14, 34, 29, 24, 19)(15, 20, 25, 30, 35); 


for iin [1..#T] do if ff(TL[i]) eq q.1 then i; end if; end for; 


for iin [1..#T] do if ff(TLi]) eq q.2 then i; end if; end for; 


for iin [1..#T] do if ff(TLi]) eq q.3 then i; end if; end for; 


for iin [1..#T] do if ff(TLi]) eq q.4 then i; end if; end for; 


for iin [1..#T] do if ff(TLi]) eq q.5 then i; end if; end for; 


f£(T[1]) eq q.5>; 


true 


T(1]; 


Id (wr) 


F:=wr!Id(wr) ; 


for q,r,s,t,u in [0..1] do if A*F eq A*q*B*r*C*s*D°t*E*u 


then q,r,s,t,u; end if; end for; 


10000 

for q,r,s,t,u in [0..1] do if B°F eq A*q*B*r*C*s*D°t*E*u 
then q,r,s,t,u; end if; end for; 

01000 

for q,r,s,t,u in [0..1] do if C°F eq A*q*B7r*C*s*D°t*E*u 
then q,r,s,t,u; end if; end for; 

00100 

for q,r,s,t,u in [0..1] do if D°F eq A*q*B*r*C*s*D°t*E*u 
then q,r,s,t,u; end if; end for; 

00010 

for q,r,s,t,u in [0..1] do if E*F eq A*q*B*r*C*s*D°t*E*u 
then q,r,s,t,u; end if; end for; 


00001 


J<a,b,c,d,e,f>:=Group<a,b,c,d,e,fla°5,b°5,c°5,d°5, e 5, (a,b), 
(aso); Ca,d)y, (ase), b,c) ,,Cb,d),. Cbse)y. Ceyd),. Ceye); (d5e), 
£°5, a°f=a, b°f=b, c°f=c, d°f=d, e°f=e>; 

#J; 
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f£,J1,k:=CosetAction(J,sub<J|Id(J)>); 
#J1; 


/* 15625 */ 
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314 


w:=IsIsomorphic(J1,wr) ; 


w; /* false */ 


since it is false, there is a possibility that this could be a 


mixed or central ext . so we check the permutation of Q in terms of J. 
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